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1. 



ABSTRACT 



The Family-of-8 ASR33/35 Teletype Tests Part 1 is the first part of a two part package used to 
test the ASR33, ASR33TY, or ASR35 Teletype when attached to a Family-of-8 system. 

Part 1 contains nine selectable programs numbered from to 10 (octal). The programs are 
selected by means of the switch register (SR). 

The programs available are: 



PRGO 
PRGl 
PRG2 
PRG3 

PRG4 
PRG5 

PRG6 
PRG7 

PRGIO 
PRGll 
PRGl 2 



Basic Input Logic Tests 

Basic Output Logic Tests 

Reader Test 

Test Tape Generator. Punches tape with characters stored in locations 
0021 and 0022. 

Test Tape Generator. Punches Binary Count Pattern test tape. 

Reader Exerciser. Reads Binary Count pattern tape in random length 
blocks, and with fixed stalls between characters. The stall is determined 
at random. 

Reader Exerciser. Reads Binary Count pattern tape. Fixed stall between 
characters. Stall count is taken from LOC 0023. 

Reader Exerciser. Reads tape punched with any 2 test characters. Random 
length blocks and fixed stall between characters. The stall is determined 
at random. 

Reader Exerciser. Reads tape punched with any 2 test characters. Fixed 
stall between characters. Stall count taken from LOC 0023. 

ASR33TY Automatic Reader option test. Checks for correct response to 
READER ON, and READER OFF commands. 

ASR33TY Automatic Punch option test. Checks for correct response to 
PUNCH ON and PUNCH OFF commands 



2.1 



REQUIREMENTS 



Equipment 



Standard PDP-B/S, PDP-8 or PDP-8/l with ASR33, ASR33TY, or ASR35 Teletype 



NOTE 

Programs PRGO through PRGIO are not written 
specifically for the ASR33TY Teletype. When- 
ever these programs are run, be sure to lock the 
punch and reader in their ON position. In the 
case of the reader, use a heavy rubber band to 
keep the reader switch in the ON position. 



2.2 Storage 

Locations 0000 through 2341 are used. 

3. LOADING PROCEDURE 

3.1 Method 

The Binary Loader is used to load the program. 

4. STARTING PROCEDURE (PRGO) 

4.1 Control Switch Settings (PRGO) 

SRO Halt at end of routine. Routine number in AC. 

SRI Select routine whose number is set in SR6 through SRI 1 . 

SR2 Loop program. 

SR6 thrpygh SRll Routine nyrr^er to be selected^^ 

4.2 Starting Addresses (PRGO) 

This program starts at LOC 0200. 

4.3 Program and/or Operator Action (PRGO) 

a. Insure Teletype is on-line. 

b. Load binary count pattern test tape in reader. 

c. Turn on reader. 

d. Load address 0200. 

e. Set SR to 0000. 

f. Press START. 

g. Program halts at LOC 0232 to permit setting of options. 

h. Select desired options, if any, in SR. For normal run SR should be 0000. Press 
CONTINUE. 

i . Program is executed and halts at LOC 0274, program end halt, if no loop options are 
selected and if no errors occur. 

5. OPERATING PROCEDURE (PRGO) 



5.1 Program and/or Operator Action (PRGO) 

5.1.1 Normal Halts (PRGO) 

LOG 0232 SR SET halt. Occurs to permit setting of desired options. 

LOG 0274 Program end halt. Occurs if no "loop program" option is set. Set de- 

sired options and press GONTINUE. If no options are set, this halt 
reoccurs . 

LOG 0320 Routine end halt. Occurs at end of routine if SRO = 1 . To proceed, 

press GONTINUE. 



6. ERRORS (PRGO) 

6,1 Error Halts and Description (PRGO) 

LOG 0177 Incorrect program number selected. Set SR to 0000 and press 

GONTINUE. 

LOG 0255 Nonexistent routine selected. Set correct routine number in SR6 

through SRll and press GONTINUE. 

LOG 1221 PRGO, routine error halt. KCG instruction failed to clear the AG. 

Pressing GONTINUE enters scope loop that sets AG to all Is, issues 
KCG to clear AG, and repeats. Manual restart. 

LOG 1244 PRGO, routine 1 error halt. 200 ms after KRB instruction the flag is 

not set, or KSF instruction failed to skip on flag = 1 . Pressing CON- 
TINUE repeats the test. 

LOC 1267 PRGO, routine 2 error halt A. Same as PRGO, routine 1 error halt. 

LOC 1271 PRGO, routine 2 error halt B. KSF instruction failed to skip with flag 

= 1 . Pressing GONTINUE enters scope loop that skips on flag continu- 
ously. Manual Restart. 

LOG 1320 PRGO, routine 3 error halt A. Same as PRGO, routine 1 error halt. 

LOC 1322 PRGO, routine 3 error halt B. KCC failed to reset, or KSF instruction 

skipped with flag = 0. Pressing GONTINUE enters scope loop that 
clears the flag and skips on flag continuously. Manual restart. 

LOG 1345 PRGO, routine 4, error halt A. Unexpected interrupt. Turn off any 

device that may be causing an interrupt (other than the Teletype). 
Pressing CONTINUE repeats the test. 

LOC 1362 PRGO, routine 4, error halt B. With reader flag =^1 and interrupt en- 

abled, no interrupt occurred. Pressing CONTINUE enters scope loop 
that turns on interrupt continuously. Manual restart. 

LOC 1417 PRGO, routine 5, error halt. Timing error. Flag not -1 110 ms after 

KRB command. Pressing CONTINUE enters scope loop that reads tape 
continuously to aid in tinning adjustment. Manual restart. 



LOC 1457 PRGO, routine 6, error halt A. Reread error. A reread of the Tele- 

type buffer did not match with the original read. New character is 
displayed in AC. Press CONTINUE. 

LOC 1462 PRGO, routine 6, error halt B. Follow up halt to PRGO, routine 6, 

error halt A. The "old" character is displayed in AC. Pressing 
CONTINUE enters scope loop that reads the teletype buffer continuously. 
AAanual restart. 



4A. STARTING PROCEDURES (PRGl) 

4.1A Control Switch Settings (PRGl) 

SRO Halt at end of routine . Routine number in AC. 

SRI Select routine whose number is set in SR6 through SRI 1 

SR2 Loop program. 

SR6 through SRI 1 Routine number to be selected. 



4^2A iiartlng Addresses 



This program starts at LOC 0200. 

4.3A Program and/or Operator Action (PRGl) 

o. Insure Teletvoe is on— line - 

b. Insure reader is off. 

c. Insure that there is paper in teleprinter. 

d. Load address 0200. 

e . Set SR to 0001 . 

f. Press START. 

g . Program halts at LOC 0232 to permit setting of options. 

h. Select desired options, if any, in SR. For norma! run SR should be 0000. Press 
CONTINUE. 

i . Program is executed and halts at LOC 0274, program end halt, if no loop options are 

selected and if no errors occur. 

5, A OPERATING PROCEDURE (PRGl) 

5.1A Program and/or Operator Action (PRGl) 



5.1JA Normal Halts (PRG1) 

LOG 0232 SR SET halt. Occurs to permit setting of desired options. Press 

CONTINUE. 

LOG 0274 Program end halt. Occurs if no "loop program" option is set. Set de- 

sired options and press GONTINUE. If no options are set, the halt 
reoccurs . 

LOG 0320 Routine end halt. Occurs at end of routine if SRO = 1 . To proceed, 

press GONTINUE. 

6.A ERRORS (PRG1) 

6.1A Error Halts and Description (PRO!) 

LOG 0177 Incorrect program number selected. Set SR to 0001 and press GON- 

TINUE. 

LOG 0255 Nonexistent routine selected. Set correct routine number in SR6 through 

SRll and press GONTINUE. 

LOG 1627 PRG1 , routine 0, error halt A. 200 ms after TLS command the flag is 

not 1 , or TSF command failed to skip. Pressing GONTINUE repeats 
the test. 

LOG 1631 PRGl, routine 0, error halt B. With flag = 1 , TSF command failed to 

skip. Pressing GONTINUE enters scope loop that skips on flag contin- 
uously. AAanual restart. 

LOG 1651 PRG1, routine 1 error halt. TGF command failed to clear flag, or 

TSF command skipped with flag = 0. Pressing GONTINUE enters scope 
loop that clears the flag and then skips on flag continuously. Manual 
restart . 

LOG 1676 PRG1, routine 2 error halt. TGF command failed to clear flag. Pres- 

sing GONTINUE enters scope loop that issues TGF command contin- 
uously. Manual restart. 

LOG 1717 PRG1, routine 3, error halt A. Unexpected interrupt. Turn off any 

device that may be causing an interrupt. (The teletype reader must 
be off). Press GONTINUE to repeat test. 

LOG 1734 PRG1, routine 3, error halt B. With flag = 1, and interrupt enabled, 

no interrupt occurred. Pressing GONTINUE enters scope loop that 
turns on interrupt continuously. Manual restart. 

LOG 1765 PRG1, routine 4 error halt. Timing error. Flag not 1 110 ms after 

TLS command. Pressing GONTINUE enters scope loop that runs the 
printer/punch continuously, to aid in timing adjustment. Manual 
restart . 



4.B STARTING PROCEDURES (PRG2) 



4. IB Control Switch Settings (PRG2) 

SRO Halt at end of routine. Routine number in AC. 

SRI Select routine whose number is set in SR6 through SRH. 

SR2 Loop program. 

SR6 through SR1 1 Routine number to be selected. 

4.2B Starting Addresses (PRG2) 

This program starts or LOC 0200. 

4.3B Program and/or Operator Action (PRG2) 

a. Insure Teletype is on-line. 

b. Load binary count pattern test tape in reader, 
c . Turn on reader. 

d. Load address 0200. 

e7 Set SR to 00027 

f. Press START 

g. Program halts at LOC 0232 to permit setting of options. 

h. Set desired options, if any, in SR. For normal run, SR should be 0000. Press CON- 

Tlk II If 

I IINVJU. 

i . Program is executed and halts at LOC 0274, program end halt, if no loop options are set, 
and if no errors occur. 

5.B OPERATING PROCEDURE (PRG2) 

5. IB Program and/or Operator Action (PRG2) 

5.1. IB Normal Halts (PRG2) 

LOC 0232 SR SET halt. Occurs to permit setting of desired options. Press 

CONTINUE. 

LOC 0274 Program end halt. Occurs if no "loop program" option Is set, set op- 

tions and press CONTINUE. If no options are set, this halt reoccurs. 

LOC 0320 Routine end halt. Occurs at end of routine if SRO = 1 . To proceed 

press CONTINUE. 

6.B ERRORS (PRG2) 



6, IB Error Halts and Description (PRG2) 

LOG 0177 Incorrect program number selected. Set SR to 0002 and press CON- 

TINUE. 

LOG 0255 Nonexistent routine selected. Set correct routine number in SR6 

through SRll and press GONTINUE. 

LOG 0564 Unable to sync. Sync subroutine has not found an all Ts character 

within 256 characters. Press GONTINUE to retry. 

LOG 2030 PRG2, routine 0, error halt A. Read error. Bad character in AG. 

Press GONTINUE. 

LOG 2033 PRG2, routine 0, error hdit B. Follow up halt. Expected character 

in AG . Pressing GONTINUE resumes test . 

LOG 2062 PRG2, routine 1, error halt A. Read error. Bad character in AG. 

Press GONTINUE. 

LOG 2065 PRG2, routine 1, error halt B. Follow up halt. Expected character 

in AG. Pressing GONTINUE resumes test. 

LOG 2120 PRG2, routine 2, error halt A. Read error. Bad character in AG. 

Press GONTINUE. 

LOG 2123 PRG2, routine 2, error halt B. Follow up halt. Expected character 

AG. Pressing GONTINUE resumes test. 

4.G STARTING PROCEDURES (PRG3) 



4. KG Control Switch Settings (PRG3) 



None 



4.2G Starting Addresses (PRG3) 

This program starts at LOG 0200. 

4.3G Program and/or Operator Action (PRG3) 

a. Insure Teletype is on-line. 

b. Turn off teletype reader. 

c. Load blank tape in punch. 

d . Turn on punch . 

e. Deposit in LOG 0021 and 0022 (8), the 8-bit code for characters to be punched 

f . Load address 0200. 

g . Set SR to 0003 . 



h. Press START. 

i . Program punches tape until stopped by user. 



5.C OPERATING PROCEDURE (PRG3) 



5.1C Program and/or Operator Action (PRG3) 



5.1JC Normal Halts (PRG3) 



None 



6.C ERRORS (PRG3) 



6JC Error Halts and Description (PRG3) 

LOG 0177 Incorrect program number selected. Set SR to 0003 and press 

CONTINUE. 



4.D STARTING PROCEDURES (PRG4) 



4. ID Control Switch Settings (PRG4) 



None 



4. 2D Starting Addresses (PRG4) 

This program starts at LOC 0200. 

4. 3D Program and/or Operator Action (PRG4) 

a. Insure Teletype is on-line. 

b. Turn off teletype reader. 

c. Load blank tape in punch. 

d . Turn on punch . 

e. Load address 0200. 

f. Set SR to 0004. 

g. Press START. 

h. Program punches binary count pattern test tape until stopped user, 



5.D OPERATING PRCXEDURE (PRG4) 



5 . 1 D Program and/or Operator Action (PRG4) 



5 . 1 . 1 D Norma I Ha Its (PRG4) 



None. 



6.D ERRORS (PRG4) 

6. ID Error Halts and Description (PRG4) 

LOG 0177 Incorrect program number selected. Set SR to 0004 and press CON- 

TINUE. 



4.E STARTING PROCEDURES (PRG5) 

4. IE Control Switch Settings (PRG5) 

SRO Halt. Program halts with accumulated error count in AC. 

SR5 Halt on error. Program halts if read-error occurs. 

4.2E Starting Addresses (PRG5) 

This program starts at LOC 0200. 

4.3E Program and/or Operator Action (PRG5) 

a. Insure Teletype is on-line. 

b. Load binary count pattern test tape in reader. 

c. Turn on reader. 

d. Load address 0200. 

e. Set SR to 0005. 

f. Press START. 

g. Program runs continuously until stopped, unless a read error occurs with SR5 = 1 , or 
SRO is set to 1 . 

5.E OPERATING PROCEDURE (PRG5) 



5. IE Program and/or Operator Action (PRG5) 

5. LIE Normal Halts 

LOG 1 115 Halt. Accumulated errors in AC. Occurs if SRO = 1 . Press CON- 

TINUE to proceed. 

6.E ERRORS (PRG5) 

6. IE Error Halts and Description (PRG5) 

LOC 0177 Incorrect program number selected. Set SR to 0005 and press CON- 

TINUE. 

LOC 1110 Read error halt. Occurs if SR5 = 1 . Press CONTINUE to proceed. 

4.F STARTING PROCEDURES (PRG6) 

4vTf Contfol Switch Set+tngs(PRG6>- 



SRO Halt. Program halts with accumulated error count in AC. 

SR5 Halt on error. Program halts if read error occurs. 

4.2F Starting Addresses (PRG6) 

This program starts at LOC 0200. 

4.3F Program and/or Operator Action (PRG6) 

a. Insure Teletype is on-line. 

b. Load binary count pattern test tape in reader. 

c. Turn on reader. 

d. Deposit in LOC 0023 the desired stall count in 2's complement form. A count of -1 
gives a 1ms stall , etc. 

e. Load address 0200. 

f. Set SR to 0006. 

g. Press START. 

h. Program runs continuously until stopped, unless a read error occurs with SR5 = 1 , or SRO 
is set to 1 . 
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5.F OPERATING PROCEDURE (PRG6) 



5. IF Program and/or Operator Action (PRG6) 



5. UP Normal Halts (PRG6) 

LOG 1 115 Halt. Accumulated errors in AC. Occurs if SRO = 1 . Press CON- 

TINUE to proceed. 



6.F ERRORS (PRG6) 

6. IF Error Halts and Description (PRG6) 

LOC 0177 Incorrect program number selected. Set SR to 0006 and press CON- 

TINUE. 

LOC 1 1 10 Read error halt. Occurs if SR5 = 1 . Press CONTINUE to proceed . 

4.G STARTING PROCEDURES (PRG7) 

4.1G Control Switch Settings (PRG7) 

SRO Halt. Program halts with accumulated error count in AC. 

SR5 Halt on error. Program halts if read error occurs. 

4.2G Starting Addresses (PRG7) 

This program starts at LOC 0200. 

4.3G Program and/or Operator Action (PRG7) 

a. Insure Teletype is on-line. 

b. Load reader with 2-character test tape. 

c. Turn on reader. 

d. Deposit in location 0021 and 0022 the 8-bit codes for the character punched in the 
test tape . 

e. Load address 0200. 

f. Set SR to 0007. 

g. Press START 

h. Program runs continuously until stopped, uf>less a read error occurs with SR5 - 1 , or 
SRO is set to 1 . 

11 



5.G OPERATING PROCEDURE (PRG7) 



5. IG Program and/or Operator Action {PRG7) 



5.1JG Normal Halts (PRG7) 

LOG 1 115 Halt. Accumulated errors in AC. Occurs if SRO = 1 . Press CON- 

TINUE to proceed. 



6.G ERRORS (PRG7) 



6.1G Error Halts and Description (PRG7) 

LOC 0177 Incorrect program number selected. Set SR to 0007 and press CON- 

TINUE. 

LOC 1110 Read error halt. Occurs if SR5=1 . Press CONTINUE to proceed . 

LOC 1137 Align error halt. Insure that correct tape is used, and check Step 

4.,3Gd.. 



4.H STARTING PROCEDURES (PRG 10) 

4 in rr.n^■rr^l ^iwJtr-k ^JatHnnc (Pffn. in\ 

-• -■■.•-■■ -.w qw ^. .>,^^ ,^f 

SRO Halt. Program holts with accumulated error count in AC. 

SR5 Halt on error. Program halts if read error occurs. 

4.2H Storting Addresses (PRG 10) 

This program starts at LOC 0200. 

4.3H Program and/or Operator Action (PRG 10) 

a. Insure Teletype is on-line. 

b . Load reader with 2-character test tape . 

c . Turn on reader 

d. Deposit in LOC 0023 the desired stall count in 2's complement form. A count of -1 
gives a 1 ms stall, etc. 

e. Load address 0200. 

f. Set SR to 0010. 
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g . Press 5TART . 

h. Program runs continuously until stopped, unless a read error occurs with SR5 = 1 , or SRO 



s set to 1 . 



5,H OPERATING PROCiPURE (PRG10) 



5JH Normal Halts (PRG 10) 



LOG ni5 Halt, Accumulated errors in AC. Occurs is SRO = 1 . Press CON- 

TINUE to proceed. 



6.H ERRORS (PRG 10) 



6.1H Error Halts and Description (PRG 10) 

LOC 0177 Incorrect program number selected. Set SR to 0007 and press CON- 

TINUE, 

LOC 1110 Read error halt. Occurs if SR5 = 1 . Press CONTINUE to proceed. 

LOC 1137 Align error halt. Insure that correct tape is used, and check Step 

4,3Hd. 



iJ 



4.1 STARTING PROCEDURES (PRG 11) 



4JI Confro! Switch Settings (PRG 11) 



None 



4.21 Starting Addresses (PRG 11) 

This program starts at LOG 0200. 

4.31 Program and/or Operator Action (PRG 1 1) 

a. Insure that Teletype is on-line. 

b. Load reader. with any test tape loop . 

c. Turn on reader by pushing the momentary contact switch to the START position, 

d. Make sure that teletype punch is not locked on. 

e. Load Address 0200. 

f. SetSRtoOOll. 

g . Press START 

h. Program runs continuously until stopped, unless an error halt occurs. 



OPERATING PROCEDURE (PRG 11) 



5.11 Normal Halts (PRG 11) 



None 



6.1 ERRORS (PRG 11] 



6.11 Error halts and Description (PRG 11) 

LOC 2212 Reader flag not set after approximately 110 ms after KCC command issued 

after READER ON command. Probably the READER ON command failed 
to turn on the reader. Press CONTINUE to proceed. 

LOC 2227 Reader flag was set after approximately 110 ms after KCC command issued 

after READER OFF command. Probably the READER OFF command failed 
to turn off the reader. Press CONTINUE to proceed. 
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4. J STARTING PROCEDURES (PRG 12) 

4.1 J Control Switch Settings (PRG 12) 

None 

4. 2 J Starting Addresses (PRG 12) 

This program starts at LOC 0200. 

4.3J Program and/or Operator Action (PRG 12) 

a. With Teletype off-line, punch a section of blank leader about 6 inches long. Return 
Teletype to on-line position. 

b. Load leader on reader, leaving very little slack between punch and reader. 

c . Turn on reader by pushing the momemtary contact switch to the START position. 

d. Make sure that teletype punch is not locked on. 

e. Load address 0200. 

f. Set SR to 0012. 

g . Press START 

h. Program runs continuously until stopped, unless on error halt occurs. 

5. J OPERATING PROCEDURE (PRG 12) 

5.1 J Normal Halts (PRG 12) 

None 

6. J ERRORS (PRG 12) 

6.1 J Error halts and Description (PRG 12) 

LOC 2337 Reader failed to read a rubout. Reader failed to read correctly if charac- 

ter on tape is a rubout. If tape character is a rubout, the PUNCH FEED 
OFF command failed to stop tfie punch from feeding. Check for other 
similar failures. To be correct, the punched tape should contain all rub- 
outs. Press CONTINUE to proceed. 

6.2J Other Errors (PRG 12) 

Failure of the PUNCH FEED ON command will eventually be detected by the tightening of 
the slack between the reader and punch. The longer the program is run the better the chances are of 
detecting the problem, if present. 
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7. RESTRICTIONS 

7.1 Starting Restrictions 

All programs must be started at LOC 0200. 

7.2 Operating Restrictions 

PRGO and PRGl must be run prior to executing any other programs. Problems detected during 
execution of PRGO and PRGl should be corrected as they occur. 
PRGl 1 must precede PRGl 2 execution. 

8. MISCELLANEOUS 

8.1 Execution Time 

PRGO execution time: 1 minute 

PJIGT execution timei 20 seconds 

PRG2 execution time: 18 minutes 

PRG3 through PRG12 are continuous run programs. 

R 9 Tpct Tnnp<; 



MAINDEC-08-D2G3-PT Binary Count Pattern test tape is provided with this program. For 
convenience in use, the tape should be spliced into a loop, making sure that the pattern is matched at 
the splice point. 

9. PROGRAM DESCRIPTION 

The Family-of-8 ASR33/35 Teletype Tests, Part 1, consists of 11 programs numbered from 
to 12 (octal). 

9.1 PRGO - Basic Input Logic Tests 

This program contains 7 routines numbered from to 6 (octal). 

RTNO Checks that KCC command is able to clear the AC. Test is done 1000 times 

RTNl Issues KCC, waits 200 ms and checks for flag = 1 . A failure to skip on 

flag indicates that flag is not 1, or KSF command failure to skip. 
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RTN2 Checks ability of KSF command to skip with flag = 1 . Done 1000 times. 

RTh43 Checks that KSF command does not skip with flag = 0. Done 500 times. 

RTN4 Checks that no other device can catee an Interrupt, and then checks that the 

reader is capable of interrupting. 

RTN5 Timing Test. 

RTN6 Reads a character from tape and saves it. It then rereads the TTI statically 

10(X) times to check for consistent reading from TTI. 256 characters are read 
in this manner. 



9.2 PRG1 - Basic Output Logic Tests 

This program contains five routines numbered from to 4. 

RTNO Issues TLS, waits 200 ms, and checks for flag = 1 . A failure to skip indicates 

that flag is not 1 , or KSF command failed. If this part is satisfied the routine 
skips on flag = 1, 1000 times. Failure to skip indicates TSF failure. 

RTNl Checks that TSF command does not skip with flag = 0. Done 1000 times. 

RTN2 Checks that TCF command clears flag. Done 100 times. 

RTN3 Checks that no other device can cause an interrupt, and then checks that the 

printer/punch is able to interrupt. 

RTN4 Timing Test. 



9.3 PRG2 - Reader Test 

This program contains three routines numbered from to 2. 

RTNO Reads 4095 charactere of birrory count pattern, at full speed. 

RTNl 



RTN2 



Reads 2000 characters of binary count patterns with random stalls between 
characters. 

Reads 100 random-length character blocks. Fixed stall between characters in 
a block. Stall is changed for each block and is determined at random. 



9.4 PRG3 - Test Tape Generator 

This program punches test tape with characters wtiose code is stored in LOC 0021 and 0022, 

9.5 PRG4 - Test Tape Generator 
Punches binary count pattern test tape. 



1/ 



9.6 PRG5 - Reader Exerciser 

This program reads binary count pattern test tape, in random length blocks, and with fixed 
stalls between characters. Stall is determined at random. 

9.7 PRG6 - Reader Exerciser 

Reads binary count pattern test tape. Fixed stall between characters. Stall count is taken 
from LOG 0023 . 

9.8 PRG7 - Reader Exerciser 

Reads test tcpe punched with any two test characters, random length blocks, and fixed stall 
between characters. Stall is determined at random. 

9.9 PR0 10 - Reader Exerciser 



Reads test tape punched with any two test characters. Fixed stall between characters. Stall 
count taken from LOG 0023. 

9.10 PROn - A$R33TY Automatic Reader Option Test 

Ghecks for correct response to READER ON, and READER OFF commands by checking for 

o>.>rrc<>.T aiuie oi I cuuci I lug ■ \\j ms uiici iSSuiny i'v\w'>^ cummuiiu vvniuii la preceucu \jy uiie i^i iiic icuucF 

control commands. 

The coder control commands used are: 
READER ON- 221 
READER OFF - 223 

9.11 PRG12 - ASR33TY Automatic Punch Option Test 

Ghecks for correct operation of PUNGH FEED ON and PUNCH FEED OFF commands by 
punching rubouts with the punch feed on, and all O's characters with the punch feed off. The resulting 
tape should contain all rubouts. The tape is verified by running it through the reader at the same time. 
The punch control commands used are: 
PUNGH FEED ON - 222 
PUNGH FEED OFF - 224 
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EAUS BINARY COUNT PATTERN TFST TAPE I ^^ RAMDHM 

ALLS WITH FIXED DELAY ^FTw£EN CHaRACTFRS. STALL 

EACW BLOCK, 

ADS binary cOUnT PATTFR\i, FIXED STaI L BETWEEN ChARAClF>^S, 

EAOS TAPE PUNChFD BY PRG3, TEST DATA MUST BF STORFO 

022, RANDOM LENGTH '^LC'CKS, FIX£n STALL RETWFEA' 

0IFFER£NT FOR EaCH BLOCK 
FIXED STALL BETWEEN CHARACTERS (NO RAMDHM LENGTH mLOCKS) 
REaDE^^ option TEST 
PUNC^ OPT I ON T^ST 



ne, routine number In ac 

NUMBER IS SET IN SR6 TO SRll 



TO BE SELECTED, 
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dddZ 

3*321 

3023 
3024 

3025 
3026 
3027 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3050 
3051 



30^)0 

;i0^i0 

50fc^l 
00i32 

a003 

00^55 
54fc!2 

3020 
00i^0 
2)000 

0000 

0000 
0257 

0313 
0322 

0333 

0345 
0232 
0400 
0017 
7766 
0000 
0037 
1200 
1600 
2000 
1000 
1006 
1013 
1031 
1042 
1060 

2200 
2244 



/frAMiLY-Of-d ASKi3/3D TtLETYP^ T|rSTS-PART 1 
»^ 

J'-^ 1 
? 
3 
»5 

JMP I 2 



• 2^ 

KSl aht, 

PTt,-lP, 

PTLMPli 

OtUAYMi 

CHAIM, 

SHLT, 

SETCTR, 

QLYlSCi 

OLYIHS, 

SRST» 

RANQNOi 

PRUmSKj 

PRliLlMi 

PRUNjUMi 

PSW, 

PRGTABi 





C H A I Ni i\J 

SriALT 

srcTR 

OtYSC 

olvms 

SWSET 
RANGEN 
17 
-12 



PRGTAB 

PRG0 

PKGl 

PRG2 

PKG3 

PRG4 

PRG5 

PRG6 

PRG7 

PRG10 

PRGll 

PRG12 



/USER PROGRAM START, 



/CHAIN R^^M ENTRYi 
/HALT TEST ENTRY 
/SET COUNTER EMTRY ^ 
/DELAY SECONDS E^TRV 
/DELAY MILLISECS ENTRY 



^.1? 


VI 63 


2d.-:f't8" 


^'9 


o'C 52 


dH^S 


lEMp.., 





2>^5Z 


^0c0 


TL^Pl, 





3^54 


2Z77 


TSImSKi 


7 7 


?«355 


?1^0 


SR5MbK» 


Xijvj 


0c 56 


^0^0 


cpiu. 


i/i 


d^57 


30^0 


CJHTSTi 





2<560 


30. '0 


WT^iNO, 





3^61 


D030 


MXTST, 





3^62 


30.30 


ScCTK 


(1 


2^63 


30i)0 


M s t: T R ,' 





dviA 


30110 


MILCTRi 





diS5 


3030 


MIH, 


■/> 


3^6 6 


7444 


KPtt, 


"^34 


?^67 


7764 


KPbS, 


-14 


2«370 


3030 


T£MQ, 





3^71 


0030 


TEMR, 





3k372 


3000 


FLAG, 





3373 


30 77 


X7 / , 


7/ 


3^74 


7740 


M4^» 


wi^i/i 


33 75 


0130 


C1^0, 


10 ^) 


30 7* 


0240 


C240, 


;?40 


3377 


7530 


SKJPMA, 


SMA 


3130 


7510 


SKiPPA, 


SPA 


3131 


0000 


CT H A , 





3132 


3000 


CTWB. 





31-33 


3000 


SCNT:, 





3134 


7634 


K10 0., 


"144 


3135 


2000 


K 2*^00. 

/ 

SYNJC^, 


2000 


3l^ft 
3137 


^546 
0444 


'*S Y N K 


iNPAtTi 


INITPT 


3110 


0453 


GErpT, 


GETPTT 


3111 


0531 


CHECK, 


CHCK 


3112 


3502 


CRCimT, 


CHRCNT 


3113 


3520 


OUYCNT. 


DUCNT 


3114 


3000 


PFLAG, 





3115 


0465 


UPUNCHi 


PUNCH 


3116 


0630 


UMUVE, 


MOVE 


3117 


7401 


MROQUTi 


»377 



1^ 

/work 

/LOCATIONS 

/SP 6-11 ENABLE MASK 

/SP5 MASK 

/IDENTIFIES CPU 

/FOR CURRENT TEST ADDRFSS 

/FOR CURRENT TEST NUMQER 

/FOR NEXT TEST AUDPESS 

/SECONDS COUNTER 

/MILL ISECUNUS COUNTEP 

/FOR 1 MSEC CONSTANT 

/PDP8 1 MSFC CONSTANT 

/PDP8S 1 MSEC CONSTANT 

/f^ONST^'^'TS 

/FOR 

/TYPE 

/CHARACTER 

/STRING 

/SUBROUTINi: 



/COUNTER -A, 
/COUNTER B, 



/ENTRY TO SYNC TAP£ RTN, 
/ENTRY TO INITIATE PATTERN 
/ENTRY TO GET PATTERN CHAR, 
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3177 
32?0 
0221 
32?2 
^223 
2224 
3225 
3226 
2227 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
0217 
2220 
2221 
0222 
2223 
0224 
2225 
2226 
3227 
2230 
0231 
2232 

2233 
2234 
2235 
2236 
3237 
00 4 
2241 
2242 
0243 
0244 
2245 
0246 
0247 
2250 
2251 
0252 
3253 
2254 
3255 
2256 



3177 
7432 
76^4 
0033 
1034 
7540 
51/7 
7 634 
30>i3 
3035 
1035 
1036 
3052 
1452 
3231 
7350 
7710 
5222 
1066 
7410 
1067 
3065 
4516 
0005 
0001 
7776 
5631 
0000 
7602 

7200 
1020 
3061 
4276 
7604 
7004 
7500 
5457 
7604 
0054 
7041 
1060 
7650 
5457 
1061 
7001 
7640 
5236 
74 02 
5233 



» 177 

STAKT, LAS 

^\'J PHGMSK 

TAO PRGLl^l 

S ^^1 A S ^ A 

J^^^ 177 

LAS 

AMI.) PRGmSK 

!•) G A P R G N U M 

TAO PHGiMUM 

TAJ PSW 

OCA TtMP 

TAO I TtMP 

OCA PRGAQR 

ID» cla CLL CMA RAR 

SPA CLA 

JMP ,+3 

TAU KP8 

SKP 

TAO KP8S 

DCA Mill 

JMS I UMOVfc. 

5 

1 

• 2 

jMP I ,+1 
PR^ADR. 

SRSET, HLT CLA 

GETRUY, CLa 

TAD KSTART 

DCA NixTST 

JMS FORwO 

LAS 

RAL 

SMA 

JMP I CURTST 

LAS 

A.NO TSTMSK 

CIA 

TAO RTNNO 

SMA CLA 

JlP I CURTST 

TAO NXTST 

lAC 

S/.A CLA 

JMP GETROY+3 
I NCR Tin, HlT 

JMD GETRUY 



/INCORRECT PROGRAM ^JUM-E^^ 



/INITIALISE 
/INTERRUPT, 
/AREA, 



/SET ADDRESS OF 1ST ;ROUTIME 
/store A,^ NxyST 

/READ SR 

/ROUTINE SELECT? 

/NO, START WITH 1ST RTN 

/YES 



/IS IT THIS RTN? 
/YES, GO 00 IT 

/NO 

/IS THIS LAST TRN? : 

/NO 

/YES. INCORRECT ROUTINE NO, 



^»iz^ 


Vi53. 


?i*FiLtf»6.9 


l&fl6 


PA&t ^ 


32 3 7 


4313 


Ch^IHH, 


J^',S 


SHALT 


/HALT? (SR0) 


d2i0 


76^4 




LAS 




/READ SR 


«32S1 


700 6 




NTL 






,5 252 


7630 




S?iL 


CL-A 


/SELECT ROUTINE? (SRl ) 


32S3 


5233 




JMP 


GLTRLlY 


/YES 


.T2S4 


1061 




TAD 


MXTST 




3 2^5 


70^)1 




I AC 






32 6 6 


7640 




SztA 


CLA 


/LAST ROUTINE? 


32 6 7 


5236 




jmp 


c;e:trl3y*3 


/NO, 


3270 


76(^4 




LA'^ 






3271 


7006 




RTL 






3272 


7710 




SPA 


CLA 


/LOOP PROGRAM? <SR2) 


32 73 


5233 




jmp 


GLTRJY 


/YES 


0274 


7402 


PRbEiMO, 


HUT 




/END OF PROGRAM HaLT 


3275 


5257 




J'^P 


CHAIMM 




3276 


0000 


FOWWU, 









3277 


,7300 




CUA 


CLL 




3330 


1461 




TAD 


I NXTST 


/GET NEXT RTN NO 


didi 


3060 




OCA 


RTNtiNiO 


/STORE AT RTNNO 


3332 


2061 




isz 


NiXTST 




0333 


1061 




TAU 


NXTST 


/SET CURRENT 


332)4 


30!>2 




OCA 


TEMP 


/RTN NUMBER 


3335 


2061 




ts? 


NXTST 




3336 


1061 




TAD 


NXTST 


/S€T CURMNT 


d^dr 


3057 




OCA 


CURTST 


/RTn addr, 


3310 


1452 




TAD 


I TEMP 


/SET NEXT 


3311 


3061 




OCA 


NXTST 


/RTN ADDR, 


0312 


5676 




JMP 


I FORWU 


/EXIT 



wX3 


Vi33 


2l-FtB- 


■69 


18! 


-5313 


c')0i30 


SHALT, 







-5314 


76^4 




LAS 




;5315 


7720 




S'lA 


GLA 


3316 


5713 




J>1P 


I SHALT 


2)317 


1060 




yAO 


^TNND 


2)320 


7422 




HUT 




2321 


5713 




JMF' 


1 SHALT 


3322 


0020 


STCTH 







ZI323 


7220 


$ 


TAG 




3324 


1722 




I STCTK 


2325 


3052 




OCA 


tEMP 


3326 


2322 




ISH 


STCTH 


3327 


1722 




TAD 


I STCTH 


3330 


3452 




DCa 


I TEMP 


3331 


2322 




\Si 


STCTH 


2332 


5722 




JMP 


I STCTH 


3333 


0020 


DLYSC, 


M 




3334 


7320 




CLA 


CLL 


3335 


1733 




TAU 


I DLYSC 


3336 


3062 




ncA 


SCCTH 


^337 


4345 




JMS 


DLYMS 


3340 


6030 




-1750 


3341 


2062 




IS^ 


SCCTR 


3342 


5337 




JMP 


t ••3 


2343 
3344 


2333 




IS? 


OLYSC 


5733 




JMP 


I OI.YSC 


3345 


0000 


DLYmS» 







3346 


7300 




CLA 


CLL 


3347 


1023 




TAD 


DELAYM 


0350 


3063 




OCA 


MSCTH 


3351 


1065 




TAD 


MILl 


3352 


3064 




DCa 


MILCTR 


3353 


2064 




IS2 


MILCTR 


3354 


5353 




JMP 


,-1 


3355 


2063 




IS?! 


MSCTH 


3356 


5351 




JMP 


,-5 


3357 


5745 




JMP 


I OLYMS 



Pace 6 



/REaO sk 
/HALT? (SHt^) 



/UNCONDITIONAL HAlTJ (Sf^^ 
/EXIT,S/-1C^L 



/GET CTR ADDR 
/AND gAyE Aj jEmP 

/GET COUNT AND 
/STORE PER C(TEMP) 



1) 



/EXIT 



/GET SECONDS COU^iT 
/STORE AT SCCTR 

/GO DELAY 
/I SECOND (1000 MSEp), 
/DONE DELAYING? 



/yEs 

/EXIT 



/GET MS COUNT 
/STORE IN MSCTR 
/GET 1 MS CONSTANT 
/STORE IN MRcTR 
/DELAYED 1 MSEC? 

/DONE DELAYING? 

/EXIT 



^*wi^ ^i^^ ?i*r£»'6-<^^ s#n6 page 



/RAfMUO''^ \iJ^;biER bt.'\LHATOK SUBROUTINE 



2420 


0000 


R A i^J G t N 1 


■^ ■ 




d^dl 


7200 




CLA 




d4d2 


1242 




TAi-i 


R AN T \ Q 


3'4?3 


4t?7 




TAH 


RANiJtX 


d47i4 


7*4 




S/A 


CLA 


2)425 


5215 




J MP 


R A N T A U 


34 2)6 


1231 




ta;i 


RANTdL 


3427 


3227 




DCA 


RANDLX 


3410 


1230 




TAi1 


R A NJ C N 


3411 


71^4 




CLL 


KAL 


3412 


7430 




Sj^I 




3413 


7001 




lAC 




3414 


3230 




DCA 


RANCUN 


3415 


1230 


RANTADi 


TAI] 


RANJCOiV 


3416 


1627 




TAH 


I RANiDLX 


3417 


3627 




DCA 


I RAVDiX 


3420 


1243 




TAD 


RANSAV 


3421 


7010 




RAR 




3422 


1627 




TAD 


I RANDtX 


3423 


2227 




IS^ 


RANOtX 


3424 


3243 




OCA 


RANSAV 


3425 


1243 




TAD 


RANSAV 


3426 


5600 




JMP 


I RA^GEN 


3427 


0442 


RANQE.XI 


RANTNO 


3430 


6543 


RA^JCONi 


6543 




3431 


0432 


RANTBL» 


.♦1 




343a 


6543 




6i>43 




3433 


3210 




3210 




3434 


0765 




0765 




3435 


5432 




5432 




3436 


2107 




21«7 




34 3 7 


76^4 




7654 




3440 


4321 




4321 




3441 


1076 




1^76 




3442 


7336 


RAi^TNDi 


" 1- 




3443 


0000 


RANSAV» 
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3444 
34 45 
3446 
3447 
3450 
3451 
3452 



3453 
3454 
3455 
3456 
3457 
3460 
3461 
3462 
3463 
3464 



30i)0 
72^3 
3250 
5644 
30.13 
3033 
3377 



3030 
7230 
1250 
3251 
1251 
7031 
3252 
3250 
1251 
5653 



/SUBMOUTlNjt TO INITIALISE BINaRV COUNT PATTERN 
iNlTPTi -^ 

CUA /SET PT« = 3 

OCA PT0 

JMP I liMlTPT /EXIT 
P T J , v' 
PTl, 3 
PTMSK, 377 

/SUBKOUTti\L TO PKOVIOE NExT BINARY COUNT PAJTE^N CHARACTER (IN AC) 
GEipFTi 



CUA 

TAD PT0 

DCA PTl 

TA9 PTl 

I aC 

AND PTMSt< 
OCA Pr0 
TAD PTl 
JMP I GETPTT 



/GET PT0 

/STORE AT PTl 

/GET PTl 

/INCREMENT aCCUMULaITOR 

/LIMH TO 8 BITS 

/ctORE At PyP! 

/gEt ptJ ^ 

/EXIT 



3465 
0466 
3467 
3470 
3471 
0472 
3473 
3474 
0475 
0476 
3477 
3530 
3531 



3532 
3533 
3534 
3535 
3536 
3537 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 



0000 
2114 
6046 
7220 
1114 
7640 
7410 
5277 
6041 
5271 
6042 
3114 
5665 



0000 
4432 
3317 
7450 
5333 
7041 
3133 
1702 
3052 
1133 
3452 
23^^2 
5732 
3077 



/pU CH/pRj^T on^ CHARACTER SUBRqUTIivjE (CHAR I^, AC), 
P,,NCH, 

/SET PEI.AG 

/PUNCH PRINT 



U' 



13^ PFLAG 

TUS 

Ct A 

TAD PFLAG 

SifA CLA 

SKP 

JMP ,*3 

TSF 

JMP ,-5 

TCF 

DCA PFLAG 

JMP I PUNCH 



/FLAG RESET? 

/NO 

/YES. 

/DONE PRINTING 

/NO, 

/YES. RESET PUNCH/PiRlNTER ELAG 

/RESET PFLAG, 

/EXIT, 



/SUBROUTINE TO GENERATE RANDOH CHARACTER COUNT, (NOT MQRE THAN 77(8)) 

CHRCNTi 

/GO GENERATE RAnDOH NUMBER 
/REMOVE HIGH ORDER 6 BITS 



JMS I RANDNO 
ANO CRMSK 
S^^A 

JMP CHRCNT+1 
CIA 

OCA SCNT 
TAD I CHHCNT 
DCA TEMP 
TAD SCNT 
OCA I TEMP 
IS? CHRCNT 
JMP I CHRCNT 
CRMSK, 77 



/2'S COMPLEMENT IT 



/STORE AT SPEClFlEd ADDRESS 

/SET UP EXIT 

/EXIT 
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PAGE 



2i>20 

3b?3 

3525 
25?6 
35?7 

.35 30 



253i 
d5Z2 
2533 
3534 
35 35 
2536 
0537 
254 
0541 
0542 
0543 
054 4 
3545 



3546 
0547 

0550 
2551 
0552 
3553 
0554 
0555 
3556 
0557 
3&60 
0561 

0562 
35 63 
2564 
3565 
3566 



20«!i0 

4432 

3330 
7 4 50 

5321 
7041 

3023 
5720 
0277 



0000 
3345 
1731 
7041 
1345 
2331 
7640 
5343 
2331 
5731 
1345 
5731 
0000 



0000 
4426 
0566 
7400 
6032 
6031 
5353 
6034 
1117 
7640 
7410 
5746 

2366 
5352 
7402 
5347 

0000 



/SuB'tOiJTi vf Tu j^LNLKATE RANOnM DELAY COUM {\Ql mQRE TmAN 3777(8)), 
/ 



J;-. 5 I RA|^)U'^JO 
A\n DLYMSK 
Siv A 

JMP DLCiNjT*j_ 
CIA 

nCA ntLAYM 
JMP I DLCNT 
DLYMSKi 277 



/GO GENERATE RANDOM' ^jU"8ER 

/MASK OUT UNnESIWEH -^ I T S , 

/ifERO? 

/YES. GET ANOTHER 'VU^BER 

/2'S COMPLEMENT IT 

/EXIT 



/SUyRQUTj.^K TO c^^'^A^E C^AC^ ^^ cONTfNTS STQRg;;, ^T CA^-L*! 

/ 

CHGKi 

nCA WCHK 

TAO I ChCK 

CIA 

TAD wCHK 

IS;? CHCK 

S2A CLA 

JMP ,+3 

ISj? CHCK 

JMP I CHCK 

TAD WCHK 

JMP I CHCK 
WCHK, 



/STORE AC AT WCHK 

/GET COMPARE DATA 

/2'S COMPLEMENT IT 

/ADO C(WCHK) 

/SET UP FOR UNEQUAL EXIT 

/EQUAL <AC s 0) 

/NO 

/YEs. SET UP FOR EQUAL EXIT 

/EQUAL EXIT 

/RESTORE AC 

/UNEQUAL EXIT 



/SYNC ON TAPE SUBROUTINE 

/ 

SYNKi 



SYWKA, 



CTSK, 



jms i setctr 

ctsk 

-400 

KCC 

KSF 

JMP ,-1 

KRS 

TAD MRBOUT 

S2A CLA 

SKP 

JMP I SYNK 

IS? CTSK 

JMP SYNKA 

HLT 

JMP SYNK+1 





/SET COUNT OF 

/-256 (DEC) Im 

/CTSK 

/CLEAR AC ^ND FLAG 

/READY? 

/NO, TEST AGAIN 

/YES. READ 

/377? 

/YES. EXIT 

/BUMP CHAR CTR *x 

/GO READ AGAIN 

/256 CHARS READ, CAN'T SYNC 

/GO TO SRST 

/CHAR COUNTER 



wl3 


V133 


21" 


-FLB- 


■69 


18: 




3630 


» 


1/7^ 


*1 








/SI 


.'BHOUT I \r 


TU MUVt 


26,?0 


30^0 


>^0\ 


^L. 


j> 




267\l 


7230 






Cla 




^6?2 


16^'0 






TAi) 


1 MQVt 


36?3 


3223 






OJA 


FAOOR 


^67)4 


22^-0 






I6t 


MOVE 


36^5 


16^0 






TAii 


1 MOVE. 


3636 


3224 






OCA 


TAnOr^ 


36?7 


2230 






IS;? 


MOVE 


3610 


1600 






TAl) 


I MOVE 


3611 


3225 






ncA 


MCTR 


3612 


2230 






IS^ 


MOVE 


3613 


721^0 


M0\ 


^LA, 


CLA 




3614 


1623 






TAO 


I FAUDH 


36i5 
3616 


3624 






OCA 


I TAODW 


2223 






IS^ 


FADUf< 


3617 


2224 






IS? 


TaDQW 


3620 


2225 






IS^- 


MCTR 


3621 


5213 






JMP 


HOyEA 


3622 


5600 






JMP 


I MOVE 


3623 


3000 


FAUDW. 


3 




3624 


3000 


TAUOR, 







3625 


3000 


MCTR. 


3 





Page i^ 



VARlAriUE Lt-NGTw HATA Flf-LDS 



/GET "FROM aODR" A'^D 
/STORE AT FAHGR 

/GET "TO ADUR" U'^D \ 



STORE AT TAl^OR, 



/GET "MOVE COU^T" A|gD 
/STO'^E AT MCTR, 
/SET U^ FOR EXIT, 

/GET "fROM" WORD 
/STORE AT "TO" LOCAf-lON 
/*1 TO "FROM" AQOR : 
/♦I TO "TO" aDOR 
/ALL WORDS MOVED? 
/NO, GO MOwE AGAIN ' 
/YES. EXIT 
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10«^0 



X^did 


72^0 


10^1 


1021 


ii)Z2 


4515 


102)3 


1022 


10 34 


4515 


10^)6 


52fe50 


1026 


72^0 


Xk5?7 


45e!7 


lk)10 


4510 


iSll 


45l5 


1^12 


5210 


1015 


4506 


1014 


3317 


1015 


4507 


1016 


6032 


1017 


4513 


1020 


4512 


10?1 


0101 


1022 


4510 


10?3 


3276 


11824 


4430 


1025 


4271 


1027 


lili 


1030 


5217 


1051 


4506 


1032 


3317 


1033 


4507 


1034 


6032 


1035 


4510 


10 36 


3276 


1037 


4430 


1040 


4271 


1041 


5235 



». 177+1 

/PHOGRAM vumHLH 3, PUNCHES TEsT TAPE wIT^^ ^ CHARACTERS 
/SPECIFIEU IN SY^dOLIC LOCATION'S PTEmp, ArgO PTlMPl. 
PR^3i ClA 

/GET C(PTtMP) 

/PUNCH C(PTEMP) 

/GET C(PTEMPl) 

/PUNCH C(PTtMPl) 

/REPEAT, 

/PKQGRAM ^^UMBER 4, PUNCHES TEST TAPt WITH RINa«Y COUNT PATTERN. 

PRi'4i 

/INITIALISE PINaRY COU^T PATTERN 
/GET BINARY COUNT CHARACTER, 
/PUNCH CHARACTER 
/REPEAT, 



TAP 


PTEMP 


JMS 


I UPUNCH 


T AH 


PTEmPI 


JV,S 


I UPUNCH 


J.^.P 


PRG3 


^^UMBER 4, P 


CLA 




J.-iS 


I inpatt 


JMS 


I getpt 


JMS 


I UPUNCH 


JHP 


•"2 



/ 

/PROGRAM D-HEADS COUNT 
/ 



PR 



G5 



FIXED RANDOM DE 



SRT0A, 



SRT0B, 



DCA 

JMS 

KCC 

Ji-lS 

JMS 

CTRA 

JMS 

DCA 

JMS 

JMS 

IS? 

JMP 

JMP 



ERRCTR 
I INPATT 



OLYCNT 
CRCNT 



I GETPT 

SBSP 

I DUYIMS 

RLADCK 

CTRA 

SRT0d 

SRT0A 



/ 

/PRQtiRAM a-READS COUNT 



PRli6i 



SRTiA, 



JMS 

DCA 

JMg 
KCC 
JMS 
DCA 
JMS 

JMS 
JMP 



I SYNC 
ERRCTR 

I I^pATT 

I GETPT 

SBSP 

I DLYlMS 

READCK 

SRTlA 



PATTERN-RANDOM NUMBERED GROUPS, 
LAY BETWEEN CHARACTERS In A GROUP. 

/sYmC TAgE 

/CLEAR ERROR COUNTER 

/INITIALISE PATTERN, 

/START READER 

/GENERATE DELAY COUNT 

/GO GENERATE AND STORE 

/RAnDO"^ CHAR, COUNT 

/GET PATTERN CHAR, 

/STORE AT SBSP. 

/GO DELAY 

/GO READ AND CHECK CHaR, 

/GROUP DONE? 

/NO, 

/YES. START AGAIN 

PATTERN-FUED DELAY BETWEEN CHARACTERS 

/sync tape 

/clear error counter 
/Initialise rAttErs. 
/start reader 
/get pattern char, 
/store at sbsp 

/GO DELAY 

/GO READ AND CHECK CHAR, 

/REPEAT 



^A.i?) Vi33 



2l-FtB-69 



IB J 16 Page x? 



/P*^0[,RAM / - hJEADS C^A^^S ^RQM TAPE ANjO MATCHES Af;Ai>jST C^Ai^S 



liJ62 
1^43 
Xv&A 
lic545 
1 1. 4 6 
10 4 7 
1050 

lii5l 
1«352 
1053 
1054 
1055 
1056 
1057 



7230 
3317 
4320 
6032 
4513 
4512 

^n^i 

4350 
3276 
4430 
4271 
2101 
5251 
5246 



/ 

PKt'7i 



SK12a 



SRI2B, 



I.^ TEMP Ai\D tempi; random ntLAY HETWEE^- 

OCA EHRGTR /CLEAR ERROR COJ-'TER 

Ji^S ALIGN / 

KCC /STAi^T REARER 

JMS I OLYC^T /Cz^Z^i^'TL UELaY qOUNT 

JMS I CRCNT /en GE^JERATE AMD STQWE 

ci»A /ranjoom char CnjNT 

JMS GIVE /GET CHARACTER 

OCA SBSP /STORE AT SBSP 

J.MS I OLVIHS /GO DELAY 

Ji^S READCK /GO READ AMU CN£CK CHAR 

IS? CTRA /GROUP DONE? 

JMP SRT2ti /NO, 

JMP SRT2A /YES START AGAIN 



Chars, 



1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1070 

1071 
1072 
1073 
1074 
1075 
1076 
1077 
11?0 
1121 

11^2 
1123 
1134 
112S5 
11^6 
1127 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 



7200 
3317 
4320 
6032 
4350 
3276 
4430 
4271 
5264 

2000 
6031 
5272 
6036 
4511 

0000 

5301 
5311 
2317 
53^5 
7240 
3317 
7604 
3055 
7640 
7402 
7604 
7700 
5671 
1317 
7402 
5671 
0000 



/ 

/PROGRAM 10 

/ CHA 

PRG10, CLA 

DC A 

JMS 

KCC 

SRT3A, JMS 

DCA 

JMS 

JMS 

JMP 



/ 

READCK 



SBSp, 
ERRCNT. 



HLUSTi 



- SAME AS 
RS, OLUAY 

ERRCTR 
ALIGN 

GJVE 

SBSP 

I DLYIMS 

READCK 

SRT3A 



ERRCTR, 





KSF 

JMp 

KRH 

JMS 



JMP 

JMP 

iSi 

JMP 

CLA 
DCA 
LAS 
AND 
S2A 
HLT 
LAS 
SMA 
J.^IP 
T A I.) 
HLT 

JMP 





,«1 

I CHECK 

ERRCNT 
HLTTST 
ERRCTR 

.♦3 

CMA 
ERRCTR 

SR5MSK 
CLA 



CLA 

I REaDC^ 
ERRCTR 

I READCK 



SRT2, BUT FIXED DELAY HETwEEN 
IS SPECIFIED IN LOG - DElAYM, 

/CLEAR ERROR COUNTER, 

/ 

/START READER 

/SET CHARACTER, 

/STORE AT SBSP 
/GO DELAY 

/GO READ AND CHECK CHAR, 
/REPEAT, 



/READY? 

/yEsT AGAIN, 

/READ CLEAR AC AND FLAG, 

/GO CHECK CHARACTER WORD, 

/ 

/ERROR, NO MATCH, GO l^'C, ERRCNT 

/INCREMENT ERROR COUNTER 

/QFlOw, RESET TO 7777, 

/READ SR, 

/HALT ON ERROR? 

/YES. 

/READ SR 

/HALT? 

/NO EXIT 

/GEt ERROR COUNT 

/HALT, ERROR COUNT IN AC 

/EXIT. 

/ERROR COUNTER 



'A.i? 



1X?1 
1122 
1123 
1124 
1125 
1126 
1127 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1150 
1151 
1152 
1153 

all 

1157 
1160 
1161 
1162 



Vli3 
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3000 


/ 

ALlG'^, 


.^ 






72^0 




Cla 






6031 




KSI- 




/reaoy? 


5322 




jyp 


.-1 


/TEST AGAIN, 


6034 




KriS 




/READ CHARACTER, 


7041 




CI A 




/2'S COMPLEMENT IT, 


3347 




DCA 


ATEmp 


/STqRE AT A TEMP, 


1347 




TAlJ 


ATEMP 




1021 




TAD 


PTEmp 




7650 




S\A 


CLA 


/IS IT CHAR IN PTEMP? 


5341 




J MP 


ALl 


/YES, 


1347 




TAD 


ATEmP 


/NO, 


1022 




TAil 


PTEMPl 




76b0 




SNA 


CLA 


/IS IT CHAR IN PTEMpi? 


5344 




JMP 


AL2 


/YES. 


74^2 




HUT 




/NO, ERROR. 


5321 




JMP 


ALIG^J♦1 


/REPEAT, 


7040 


ALL 


CM A 






3346 




DCA 


IND 


/SET IND TO -1 


5720 




JMP 


I ALlGi^i 




3346 


AL2, 


DCA 


IND 


/SET IND TO 0, 


5720 




JMP 


I ALIGN 




0000 


INU, 









0000 


ATtMP. 









0000 


GIVE. 









7200 




CLA 






2346 




IS2 


IND 


/IS IND = -l? 


5357 




JMP 


,♦4 


/NO, 


3346 




DCA 


IND 


/YES, 


h'.U 




TAD 


PTEMP. 
I GIVE 


/GET CHAR FROM TEMP. 




JMP 


/EXIT, 


7040 




C'^A 






3346 




DCA 


IND 


/SET INO TO -1, 


1021 




TAD 


PTEMP 


/GET CHAR FROM TEmP, 


5750 




JMP 


I GIVE 


/EXIT, 



■»Aul? 



12?!0 

12^3 
12?4 

12?5 
1236 



I2;a7 

1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1220 
1221 

1222 
1223 
1224 
1225 
1226 



1227 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1240 
1241 
1242 
1243 
1244 



Vl33 



4426 

0020 
12^5 
5604 
3232 

30i^0 
1225 



4426 
0101 
6030 
7240 
6032 
7440 
5221 
2101 
5212 
5424 
7402 

7240 
6032 
5222 
0001 
1246 



4426 

0023 
7470 
4426 
0101 
7634 
6032 
4430 
6031 
5244 

2101 
5235 
5424 
7402 



2l-rt:B-&'J 

». 1/7*1 

/PWQt^KAM i 

/P-^Oi^RA*^ C 

PKb0, J-l 

KS 

/ 

P T S J n 

/ISSUE '^CZ 
/AC NOT n 

CT 
-1 
CL 
KC 
Si 

IS 

JM 
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, ASR .53/35 

f^ECKS INPUT 
S I SETCTK 
TAt^T 

TS? 

P I , +1 

SET 



TELETYPE BASIC INJPt'T TESTS. ; 
IOT»S, INTERRUPT, AnD ^^E AQER : T I M I NG 

/SET KSTART TO 1^1^1*1 

/ROUTINE AnUR£?S. 

/GO START TEST 



P0t0, 



TSl 

WITH AC=77 
INDICATES K 
S I SlTCTR 

PA 

750 

A CMA 

C 

A 

P 

i 

P 

P 

T 



Plt;E0 

CTRA 

.-5 

I CHAIN 



CL.A CMA 
KCC 

J'^P ,•'2 
P0TS1, 1 

P^TS2 



77, AC SHOUin GO TO /, 

cc Failure, test is done 1^00 times, 

/SET COUNT OF 

/-1000 (DEC) IN 

/CTRA 

/SET AC TO 7777 

/CLEAR AC AND FLAG 

/IS AC s 0? 

/(\J0 ERROR GO TO P0F0 

/DONE? 

/NO, rEPEAt 

/CHAIN 

/TST0 ERR HALT. KCC 010 

/NOT RESULT IN AC = 

/SET A TO 7777 

/CLEAR AC AND FLAG 

/RpEAy 



/ISSUE KCC WaIT 200 MSEC FqR FLaG TO SET^ 

/SKIP ON Flag, failure to skip indicates 

/THAT FLAG IS NOT SET, OR KSF FAILURE, 
/TEST IS ulQNE 100 TIMES, 



P0TS1A# 



P0TSlBi 



P0E1. 



1245 5232 



JM5 I SETCTH 

DELAYM 

-310 

JMS I SETCTK 

CTRA 

-144 

KCC 

JMS I OLYIMS 

KSF 

JMP P0E1 

IS? CTRA 

JMP P0TS1B 

JMP I CHaIN 

HLT 

JMP P0TS1A 



/SET DELAYM 
/TO -200 

/GO SET COUNT OF 

/-100 (DEC) IN 

/CTRA ! 

/CLEAR AC AND FLAG 

/GO DELaV 

/SKIP ON FLAG = 1 

/ERROR, GO TO El 

/ALL DONE? 

/NO, REPEAT 

/CHaIN 

/TSTl ERROR HALT. FLAG 15 NOT 

/SET, OR KSF FAILED 

/RESTARTING TEST, 



^* Id 



Wli3 



^l'^ ttt-6y 



IBSlb 



PAGt 



1246 
1247 



12'^ 

im 

1253 
1254 
1255 
1256 
1257 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 

1270 
1271 

1272 

1274 



1275 



4 4 26 

74/0 
4426 
^li^l 
60^t5 
6032 
4430 
6031 
5267 
6031 
5271 
21^1 
5262 
5424 
7402 

5256 

7422 

6031 

52^2 
52 7 2 



P0iS^, 2 

P ^- T S 3 
/IbSut ^CC;, WAIT 2^0 
/ S 'v I P ^M (• L A b l^/^id J 
/ 

J"^S 1 SLTCTK 

OtLAYM 

'310 

jmS I Sfc-TCTR 

CT^'A 

-175^ 
P0rs2Ai KCC 

JMS I DLYIMS 

JMP Pii)E2A 
KSF 

JMP P^E2B 
IS/ CTRA 
JMP ,-3 
JMP I CHAIN 
P0t.2A, HLT 

P0t2Ui HIT 
KSF 
JMP ."S 



MSEC For Fi.AG TO RE S^T. 
IMES jO vEPIFy CONSlS^tiMy SKIPPING 

/SET UELAYM 
/TO '2^^ 

/GO SET COUNT OF lt^0^^5 

/(OtC) IN 

/CTRA 

/CLEAR AC AND FLAG 

/GO DELAY 

/st<Ip 0^ ^LAG = 1 

/DID NOT SKIP, GO TO E?A 

/SKIP ON FLAG = 1 

/DID NOT SKIP, GO TO E2B 

/ALL DONE? 

/NO, REPEAT 

/CHAIN 

/TST? ERROR HALT, FLAG 

/NOT SET OR KSF FaILURF, 

/TST2 ERR HALT B. 
/KSF FAILURE 
/SKIP ON FLAG = 1 
/REPEAT 
/REPEAT 



3A^li 



Vl«53 
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1275 0033 

1276 1327 



P0IS3, 



3 

PidJ 



S4 



1277 
1330 
13?1 
13?2 
1333 
1334 
1335 
1336 
1337 
1310 
1311 
1312 

1315 
1316 
1317 
1320 

1321 
1322 



4426 
3023 
7470 
4426 
31i3l 
7014 
60J2 
4430 
6031 
5320 
6032 
6031 

53i5 
5322 
2101 
5312 
5424 
740 2 

5305 
7402 



WAIT Z^2 MSLCS f OR FLAG TO SET, 
T FLa^ is set, reset FLAG (KCC' AND 
AG 50v3 TIDIES To VERIFY THAT NO 

0. 



/ 

/ISSUE KCC, 

/VLRlFY THa 

/S^IP UN (• L 

/S^IP OCCURS WITH FLAG 

/ 

JM5 I SETCTK /SET QELATM 

DELAYM /TO -200, 

-310 

JMS I SETCTH /SET COUNT OF 

CTRA /-500 (DEC) IN 

-764 /CTRA 

P0TS3A, KCC /CLEAR FLAG 

JMS I DLYIMS /GO DELAY 

KSF /READY? 

jhP P0E3A /NO, ERROR 

KCC /YES. RESET FLAG 

KSF /READY? 

JMP ,+2 /NO, OK 

JMP P0E3B /YES, ERROR 

IS2 CTRA /ALL DONE TESTING? 

JMP ,«4 /NO, REPEAT 

JMP I CHAIN /YES, chain 

P0t3A, HUT /TST3 ERR HALT A, FLAG 

/NOT SET OR KSF FAILURE 

JMP P0TS3A /TRY AGAIN 

P0t-3B, HLT /TST3 ERR HALT 8. FLAG 

/FAILED TO RESET. OR KSF 
/SKIPPED ERRONEOUSLY, 



n^Hu O^f HEADER BEFqrE E^jTErInG 
/SGQPE LOOP, 

1323 6032 KCC /CLEAR FLAG AND AC 

324 603. KSF /SKIP ON FLAG = ^ 

1325 5323 JMP ,-2 /REPEAT 

1326 5323 JMP -3 /REPEAT 



=Al13 V1J3 
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Xailh PAGE'. 



IS27 



1331 
13 32 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 
1343 
13d4 
1345 
1346 
1347 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1360 

WW 

1363 
1364 
1365 

1366 
1367 
1370 



00'J4 
14 00 



4426 
3002 
1345 
6042 
6032 
6031 
5336 
6032 
6001 
7000 
6002 
5347 
7402 
5334 
4426 
0101 
6030 
4426 
0002 
1371 
6032 
6031 
5356 
6001 
7000 
7402 

4426 
0002 
1370 

6001 
7000 
5366 



P 1 S 4 , 4 

|-^ <.. T S '^ 
/THIS Hjoul ifvjE ChlCKS 
/A^^D TH£;v CHECKS THA 

J'^S I SLTCTR 

2 

P <;} b. 4 A 
P0TS4A. TGF 

KCC 

KSF 

J>iP ,-1 

KCC 

ION 

NUP 

IGF- 

JMP ,+3 
P0k.4A, HLT 

JMP P0TS4A 

JMS I SETCTR 

CTRA 

-1750 

JMS I StTCTR 

2 

P^TS4C 

KCC 

KSF 

JMP ,-i 
P0TS4BI lOM 

NOP 
P0L4B, HLT 

JMS I SETCTR 
2 

P^TS4C-1 
/SCOPE LOOP 

lOiM 
NOP 
JMP ,^2 



THAT NO OTHEH DEVICL CA^ CAUSE' AN INTERWUPT, 
T THE READER FLAG IS CAPABLE OF I NTERRl.iPT I NG . 
/SET INTERRUPT RETURN 
/TO P0E4A, 

/CLEAR PUNCH/PRINTER Ft AC 
/CLEAR REAPER FLAG AFtER 
/IT COMES UP 

/CLEAR READER FLAG 
/ENABLt INTERRUPT 

/TURN OFF INTERRUPT 

/UNEXPECTED INTERRUPT 
/TRY AGAIN 
/SET CTRA TO 
/-1000 

/SET INTERRUPT RETURN 
/TO P0TS4C, 



/WAIT FOR READER FLAG 

/TO SET 

/ENABLE INTERRUPT 

/READER FLAG FAILED TO INTERRUPT, 
/OR INTERRUPT SYSTEM MALFUNCTION 
/SET INTERRUPT RETURN 
/TO P0TS4C-1, 



1371 
1372 
1373 



21.1 
5360 

5424 



P0TS4C, 



ISi!? CTRA 
JMP P0TS48 
I CHAI^ 



JMi 



/DONE? 
/NO, REPEAT 



^A.i? Vl33 
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14?0 
14?1 



^4^2 
14^3 
1434 
1425 
1436 
14?7 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 

1420 
1421 
1422 
1423 



14J5 

J0c^5 

1424 



4426 

7622 
4426 
Jl^l 
7634 
6032 
4430 
6031 
5217 

2iai 

5210 
5424 

7402 

6032 
6031 
5221 
5220 



», 1/7 

P0TS5, 

P0IS6 

/RtAOE 

/LATt-R 

/ 



♦ 1 



H TIMING TtST. CHECKS ThAT READER ElAG IS =1 MO 
THA.^ 110 MRLISECONjDS ATTER KCC 1 ^'STRUCT I ON I S ISSUFU. 



P0TSt>A, 



P0t5 



JMS I SETCTR 

DLLAYM 

-156 

J^^S I SETCTR 

crwA 

"144 

KCC 

JMS I DLYIMS 

KSF 

JMP PidE5 

ISi CTRA 

JMP P0TSi>A 

JMP I CHAI^J 

HLT 

KCC 
KSF 

JMP ,-1 
JMP ,«3 



/SET OELAYH 
/TO.,^^ 

/SET COUMT OF 

/-10? (OEC) IN 

/CTRA 

/START READER, CLEAR PC FLAG 

/GO DELAY 110 MILLISECS 



/TST5 ERR HALT. FlAQ NnT=l 

/110 mSECS after KCC IMSTRUCTIONJ, 

/START READER, CLEAR FLAG, AC, 

/FLaG=1? 

/NO, TEST AGAIN 

/YES» REPEAT, 



- A u 1 ? 



\J\S3 



2l_FtH-60 



ia:i^ 
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1424 
1425 



1426 
1427 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 



1460 
1461 
1462 



1463 

1464 
1465 
1466 
1467 



7777 



4426 
i)101 
74i^0 
60J2 
60v5l 
5232 
6034 
3266 
4426 
0102 
6030 

7200 
6034 
3267 
1267 
7041 
1266 
7640 
5256 
2102 
5241 
2101 
5231 
5424 
1267 
7402 



7200 
1266 
7402 



7200 
6034 
5263 

0000 
0000 



P0TS6. 
/ 



Tin 

236 Mff-'EHLNT CHARAcTERSi fACn CHARACTER IS READ li'!<)0 TIMES 
•^IFY C0iNiSl3TLi>JCY OF READING FROM TTl. 



P0yg6A, 



P0TS68» 



P0E6A, 

/ 
/ 



P0t6B, 

/ 

/ 



WTS6A, 
WTS6B, 



CM 
-4 ^ 
KCC 
KSF 

KRS 
OCA 
JMS 
CTW 
-17 
CLA 

kR'^ 

DCA 
TAD 
CIA 
T,[) 

SHa 
JMP 

ISH 

JMP 
IS2 
JMP 
JMP 
TAD 
HLT 



I StTCTR 



.-1 

WTS6A 
I SETCTR 
d 

50 



WTS6tJ 
WTS6B 

WTS6^ 

CLa 

P0£6a 

CTRB 

P0TS6B 

CTRA 

P0TS6A 

I chajn 

WTS6B 



CLA 

TAU WTS6A 

HLT 



CLA 

KRS 
JMP 





.-2 



/SE.T COUNT OF 
/-256(0EC) 

/In Ctra 

/CLEAq ACi flag, gT^RT R°R' 

/READy? 

/NO, TEST AGAIN, 

/READ CHARACTER, 

/SAVE AT WTS6A, 

/SET COUNT OF 

/CTRB 

/'-1000 (DEC) IN 

/rEaD CHARACTER, 
/SAVE AT WTS6B 
/GET IT HACK, 
/2'S COMPLEMENT IT 

/aOd expected C^aR 
/result 0? ' 

/NO, fRROR, gO to e;6a. 

/READ CHAR 1000 TIMES? 

/no, go READ IT AGAIN, 

/YES. read 256 DIFF, CHARS? 

/NO, 

/YES, CHAIN 

/TST6 ERR HALT A, AC DISPLAYS 
/INCORRECTLY READ CHAR, DEPRESS 
/KEY CONTINUE 



/TST6 ERR HALT B, AC DISPLAYS 
/WHAT THE CORRECT CHAR SHOULD 
/BE, 

/READ CHARACTER 
/L 
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16J0 



1630 4426 

16^2 16.^5 

1623 5604 

1624 32 3 2 



16^5 
1636 



16 ?7 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1620 

illi 
1623 
1624 
1625 
1626 
1627 
1630 
1631 
1632 
1633 
1634 



00i30 
1635 



4426 
2023 
7470 
4426 
3101 
6030 
7200 
6046 
4430 
6041 

5227 
6041 

5231 
2101 
5222 
5424 
7602 
5215 
7602 
6041 
5232 
5232 



» • 17/*1 

/pHQGRAM 1, ASR33/35 TELETYPE BASIC OUTPUT TFSTS, ! 
/PROGRAM CHECKS OUTPUT lOT.Si INTERRUPT, AMD TIMING, 
PRGl, JMS I SETCTR /SET KSTART TQ INITIAL 

KSTART /ROUTINE ADDRESS. 

PlTSf' 

J>1P I ,+1 /GO START TEST 

SRSET 



/ 

PlTS^ 



/I. Tt 
/TSF 
/2t w 

/FAILI 





PITS 
LS A... 
SHOULD 
ITH FLA 
.U^^E TO 
JMS 
DELA 
-310 
JMS 
CTRA 
-175 
PlTS0Ai CLA 
TLS 
JMS 
TSF 

JMP 

TSF 
JMP 
IS2 

JMP 
JMP 
HUT 
JMP 
HIT 
TSF 
JMP 
JMP 



WAIT 200 MStrS pOR (tLAg TO S^T, SKIP ON pLAG = l (TSr). 

SKIP, OR ERROR HALT P1E0A OCCURS, FLAG NOT SET, OR TSF FAILURE, 

G=l, SKIP ON FLAG 1000 TIMES TO TEST FOR CONSISTENT SKIPPING, 

SKIP CAUSES Error halt P1E0B, 

I SETCTR /-?0f TO OELAYM 

YM 



P1TS0BI 



P1L0A^ 

Plt.0ri 



I SETCTR 







I DLYIMS 



Pj_E0A 

P1E0B 
CTRA 
P1TS0B 
I CHAIN 

CLa 
P1TS0A 

CLA 



.-2 



/-1000 TO CTRA 



/CLEAR AC 

/START PRINTER/PUNCH 

/OEuAY 200 MSECS, 

/FLAGsl? 

/NOj ERROR 

/FLAGsl? 

/ERROR, FAILED TO SKIP, 

/DONE? 

/NO, REPEAT, 

/YES, CHAIN 

/ERR HaLT a ^La^ NOTsl aI^TER 

/200 MSrpS.'OR TSp pAiLURr 

/ERR HACt B, TSF FAILED TO: SKIP 

/SCOPE LOOP, SKIPS ON 

/FLAG CONTINUOUSLY, 



mL-A 


V133 


21-FLB- 


■69 


18jl6 


1635 


30idl 


Pl'Sl. 


1 




1636 


1656 




P1TS2 






/I^SUE 


TCF TO CLtAR FLAG 






/S^IP OCCU'.S 


; WITH FLAGS0 


1637 


4426 




JMS 


I StTCTR 


1640 


2101 




CTWA 




1641 


6030 




-1750 


1642 


6042 




TSF 




1643 


6041 


PIISIA, 




1644 


7410 




SKP 




164& 


5251 




JMP 


Pltl 


1646 


21^51 




l^i 


CTRA 


1647 


5243 . 




JMP 


PITSIA 


1650 


5424 




JMP 


I CHAJM 


1651 


7602 


Pltl, 


HLT 


CLA 


1652 


6042 




TCF 




1653 


6041 




TSF 




1654 


5253 




JMP 


.-1 


1655 


5253 


/ 
P1FS2, 


JMP 


.•2 


1656 


ml 


2 




1657 




P1TS3 






/I^SUr 


TtS. 


WAIT pOR pLA 






/SHOULC 


1 OCCUR, IF SKIP 


1660 


4426 




JMS 


I SETCTK 


1661 


0101 




CTRA 


I 


1662 


7634 




"14^ 


\ 


1663 


7200 


P1TS2A, 


CLA 




1664 


6046 




TLS 




1665 


6041 




TSF 




1666 


5265 




JMP 


.-1 


1667 


6042 




TCF 




1670 


6041 




TSF 




1671 


7410 




SKP 




1672 


5276 




JMP 


P1E2 


1673 


2101 




IS? 


CTRA 


1674 


5263 




JMP 


P1TS2A 


1675 


5424 




JMP 


I CHAIN 


1676 


7602 


Plt.2» 


HLT 


CLA 


1677 


6042 




TCF 




1720 


5277 




JMP 


1-1 
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SKIP ON FLAG 1^0t^ TIMES TO VERIFY THAT NO 



/-10f50 TO CTRA 



/CL^AR pLAp 



/ERR 
/TSF 



HALT, AFTER 
INSTRUCTION 



CLEAR FLAG 
SKIPPED, 



(TCF) 



/SCOPELOOP, CLEARS FLAG, 
/ADN then SKIPS ON FLAG 
/CONTINUOUSLY, 



TO SpT, pLpAR fLAg (^pF) 
OCCURS, TCF INSTRUCTION (CLEAR FLAG) 
/-100 TO CTRA 



SKIP ON pLAG=l,NO SKIP 
FAILED, 



/ERR HALT, 

/FLAG, 

/SCOPE LOOP, CLEARS 

/CONTINUOUSLY, 



TCF FAILED TO RESET 
FLAG 



3A_17 V133 



2l-FtB-69 



lb! 1^ 



PAGt 2? 



X7dX ^0'<33 Pirs3, 3 

1732 1746 P1TS4 

/THIS HQuTIiME CHcC^S 
/AND THtiNJ CHECKS THA 

17?3 4426 J^S I S£TCTR 

17?4 ^'002 ? 

17?5 1717 P1[-3a 

17?6 6032 P1TS3A, KCC 

17?7 6046 TLS 

1710 6041 TSr 

1711 5310 JMP ,-1 

1712 6042 TC«-" 

1713 6031 IQ^J 

1714 70i30 NOP 

1715 6002 lOF 

1716 5321 JMP ,*3 

1717 7402 Plt3A, HLT 

1720 5306 JMP P1TS3A 

1721 4426 J(^S 1 StTCTR 

1722 01W1 CTRA 

1723 6030 -1752 

1724 4426 JMS I Sf.TCTR 

1725 0002 2 

1726 1743 P1TS3C 

1727 6046 TLS 

1730 6041 TSF 

1731 5330 JMP ,-1 

1732 6001 PlTS38i ION 

1733 7000 NOP 

1734 7402 PltSti, HLT 

1735 4426 JMS I SETCTR 

1736 3002 2 

1737. 1742 P1TS3C-.1 

1743 6001 ION 

.741 7000 NOP 

1742 5340 JHP ,•2 

1743 2101 P1TS3C» 152 CTRA 

1744 5332 Jf^P P1TS3B 

1745 5424 JMP I CHAIN 



THAT NO OTHER DEVICf CAM CAUSE AN INTERRUPT, 
T THE PijNCH/PRINTER fLAG CAN CAUSE AN INTERRUPT, 
/SET INTERRUPT RfTURN Tq 
/P1e3, 

/CLEAR READER FL-fG IF UP, 



/CLEAii? PUNCH/PRINTER FLAG 
/ENABLE INTERRUPTSi 

/qISabLe INTERRUffTS 

/UNEXPECTED lNTEf?RUPT, 
/TR'' AGAIN, ! 
/-1000 TO CTRA, i 



/SfT iNT^HRUPT RgTURN 
/To p:LTS3C 1 

/START PUNCH/PRII^TER 

/FLAG UP? 

/NO, TEST AGAIN 

/YES, ENABLE INTERRUPT 



/PRINTER FLAG FAl 
/OR INTERRUPT MAL 
/SET INTERRUPT RE 
/TO P:lTS3C-1 

/SCOPE LOOP, 



/DONE? 

/NO, REPEAT 

/YEE.. CHAIN 



LED TO INTERRUPT 

FUNCTION, 

TURN 



SA^I,' 



\Jlii 



'dl'ft.ti'b^ 



18:ib pAGE^^ 



1746 
1747 



i75d 
l7ol 
1752 
1753 
1754 
175^ 
1756 
1757 
1760 
1761 
1762 
1763 
1764 
1765 

1766 
1767 
1770 
1771 



d 0^4 
7777 



4426 
0023 
7622 
4426 
31^1 
7634 
6046 
4430 
6041 
5365 
2131 
5356 
5424 
7602 

6046 
6041 
5367 
5366 



Pl!S^, 4 

7/7 7 

/PUtvjCH/PHl^TLR TlMliMG TEST. 
/110 MlLLlStCONUS AFTt^ TlS 



CHECKS THAT 
INSTRUCT IO\i 



Flag ip=i no later than 



Pll s-^a. 



Plt4, 



JiS I SlTCTR 
n L L a Y M 
-156 



J^^1S I 

ctra 

-144 
TLS 

JMS 

TbF 

J, -IP 
ISl 
Ji'ip 

JMP 
HLT 

TlS 

Tsr 

JMP 
JMP 



S L T C I R 



I DLyI^S 

P1E4 
CTRA 

plTS^^A 
I CHAIN 

CLA 



-1 
-3 



/-110 TO OFLAYM 



/'lid^ To CTRA 



/START PUnCH/PRINTER 

/GO OELAy 11? MStCS, 

/FLAGsl? 

/NO, ERROR, 

/YEs. DONE? 

^NO' R^pE^T, 

/YES. CHAIN 

/ERR HALT, FLAG ^QT 1 H0 

/AFtF:r TLS iNSTRliCTION. 

/SCOPE LOOP, START PRINTER 

/FL^Gsl? 

/NO, CHECK AGAIN 

/yES REPEA^, 



MSECS 



^A^l? V133 



2l-FtB-6Q 



18: 16 PAGt 24 



2^?0 
20?1 

2^23 
2^254 

2dlb 
20Z16 



2e)37 

2010 
2011 
2012 

2i^i3 
2014 

2015 

2016 

2017 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2fc)30 



2 0^0 



4426 
^020 
20<-5 
56<54 

3232 

3000 
2035 



4tJ^6 
4426 

2121 
30i5i 

6032 
45;37 

4510 
3223 
6031 
5217 
6036 
4511 
0000 
5230 
2101 
5215 
5424 
7402 



*. 177*1 

/P^OGRAH ^, ASR33/3b TELETYPE REAJFR TEST, CHECKS ;A8ILlTY op KEaOER 
/TU COf^REuTLY READ AT FULL SPEED A\iO WITH RANDOM STALLS. 
PRt.2i J'^S I StTCTR /SET KSTART TO r-fl^ML 

kstart /routinje address. 

P2TS0 

J-1P I ,+1 /GO START TEST 

SKSET 

•A 

P2rSl /NExT RT^J ADDR. 

409D CHARACTERS, AT FuLL SPEED, MATCHING EACH CHARACTER 
AGAINST COUNT PATTERN 



/ 

P2^S^, 

/RtAO 
/READ 
/ 



P2TS0 



A» 



S8W, 
P2T0B, 

P2t0, 



2031 


7200 


2032 


1223 


2033 


7422 


2034 


5225 



JMS 1 SYNC 

JMS I SETCTR 

CTRA 

^/777 

KCC 

JMS I INPATT 

JMS I GeTPT 

OCA SB0 

JMP ,-1 

JMS I CHECK 



JMP P2E0 

IS2 CTRA 

JMP P2TS0A 

JMP I CHAIN 

HIT 



CLA 

TAD SB0 

HIT 

JMP P2T0ti 



/GO SYNC TAPE 

/SET COUNT OF 

/-4295(DEC) IN 

/CTRA 

/START READER 

/GO INITIALIZE PATTERN 

/GET PATTERN C^^a^aC^ER 

/STORE AT SB0 

/rEADy? 

/NO, TEST AGAIN 

/YES. read CHARACTER 

/GO CHECK FOR CORRECT MATCH 

/CORRECT Char here 

/error, go to p2e0 

/ok, all done? 

/no, repeat 

/yes, Chain 

/tst10 err halt, ac contains 

/char that 010 not match 

/aGaInst pattern, epress 

/key continue 

/GET correct CHARACTER 

/AC CO^JTAINS THE EXPECTED CHARACTER 



-'A.i? 



V133 



21-F tLrf-6y 



ie;i6 



PAGE 



2.335 
?*336 



2<J37 
2240 

2<)42 
2^43 
2^44 
2i!545 
2^46 
2047 
2^50 
2051 
2052 
2053 
2054 

2055 
20?5 
2057 

2060 
2061 
2062 



2063 
2064 

2065 



^0^1 
2067 



45^6 
4426 
3101 
4060 
60J2 
45^'7 
4513 
3255 
4513 
4430 
6031 
5251 
6036 
4511 

0000 
5262 
2101 
5245 
5424 
7402 



7200 
1255 
7402 



P2IS1, 1 

/RtAU k:0'/ii- CHaR.aCTLHS 
/MATCH LACH CHARACfLR 
/ 

JMS I SYMC 

JMS I sETcrw 

CTKA 

-3720 

KCC 

OCA 
J^s 

Ksr 

JMP 
KRh 
JMS I CHECK 



P2TS1 



A« 



I li^PATT 

I GlTPT 

SBl 

I DLYCmT 

I OLYIMS 

.-1 



SBl, 
P2T1B, 

P2L1, 



2066 52=7 





JMP P2E1 

IS? CTRA 

JMp p2TSlA 

jmp i chain 
hlt 



CIA 
TAD SBl 

HUT 

JMP P2T1B 



^ 1 th 
READ 



RANDOM DELAY 
AGAINST COUNT 



BETWEEN' CHARACTERS 
PATTERN 



/TO SYNC TAPE 

/SET COUNT OF 

/-2000 (DEC) IN 

/CTWA 

/START READER 

/INITIALIZE' PATTERN 

/GET PATTERN cHa^^aC^E^ 

/STORE AT SBl 

/ge,-^ErAi-e rAj^d^^m delay 

/DELAY 

/READY? 

/NO, TEST AGAIN 

/YES. REaD CHaRacTEH 

/GO CHECK FOR CORRECT MATCH 

/CORRECT CHAR HERE 
/ERROR, GO TO P2E1 
/OK, ALL DONE? 

/5^?S, CHAIN 

/TSTl ERR HALT, AC CONTAINS 

/CHARACTER THAT DID MQT MATCH 

/AGAINST PATTERN, DEPRESS 

/KEyCONTINUE 

/GET CORRECT CHARACTER 
/AC CONTAINS THE EXPECTED 
/CHARACTER 



^.i:? 


Vi33 


Pl-FLB- 


69 


18! 16 


2«357 


i?002 


P2rS2, 


2 




2i)70 


77/7 




7777 






/HtAu W 


ITh 


■JAiMpOM STALL 








OilPS 


RLAL), 


2.371 


45^6 


J'^S 


I SY\C 


2i)72 


4426 




JiMS 


I SLTCTH 


2«373 


^n^l 




CTf^A 


2«574 


7634 




-144 


2i375 


6032 




KCC 




2076 


45i?7 




JMS 


I InPATT 


2077 


4513 


P2rs2A» 


JMS 


1 dlycnt 


2120 


4512 




JMS 


I CRCNT 


Sl^*! 


0102 




CTRd 


21?2 


4510 


P2TS2BI 


JMS 


I GETPT 


2123 


3311 




OCA 


SB2 


21?4 


4430 




Ji^S 


I DLYIMS 


2135 


6031 




KSF 




21^6 


5325 




JMP 


"1 


2137 


6036 




KRB 


1 


2110 


4511 




JMS 


I CHLCK 


2111 


0030 


Sti'd, 







2112 


5320 




JMP 


P2E2 


2113 


2132 




IS2 


CTRB 


2114 


5332 




JMP 


P2TS2B 


2115 


2101 


P2r2C, 


ISZ 


CTRA 


2116 


5277 




JMP 


P2TS2A 


2117 


5424 




JMP 


I CHAIN 


2120 


7402 


P2t2i 


HLT 




2i2i 
2i?2 


7330 
1311 




CtA 
TAD 


SB2 


2123 


7402 




HIT 




2124 


5315 




JMP 


P2T2C 
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t^f-TWf^M HANJyOM (.HARAqTfR GROUP?! 



/GO SYMC TAPE 

/SET cou^T or 

/-10P (DEC) IN 

/CTRA 

/START READER 

/INITIALISE PATTERN 

/SET RANDOM DELAY 

/SET RANDOM CHARACTER 

/COUf^T IN CTRB 

/GET PATTERN CHARACTER 

/AND STORE AT SB2 

/GO DELAY NO OF 

/READY? 

/NO TEST a^aI^* 

/RfAD Character 

/CHECK FOR CORRECT MATCH 

/AGAINST SB2 CONTENTS 

/ERROR, GO TO P2E2 

/QK, ALL CHARS FqR GROUP PONE? 

/NO 

/YES, 

/NO 

/YES. 



ALL GROUPS DONE? 



CHAIN 

/TST2 ERROR HALT, AC CQNTAIMS CHAR THAT 
/DID NOT MATCH aGaINST PATTERN, DEPRESS KEY 
/CONTINUE 

/GET CORRECT CHARACTER 

/AC CONTAINS THE EXPTECTEO: CHARACTER 



^A,i;^ 



Vl33 



2l'Ftti-b9 



18Ud 



PAUL 



22^0 



22?0 

22.n 

22^?2 
2233 
22?4 
2225 
22 ?6 
2227 
2210 
2211 
2212 
2213 
2214 
2215 

2217 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 

2233 
2234 
2235 
2236 
2237 
2240 
2241 



3237 
1236 
4311 
4273 
12 3 3 
4311 
443i3 
6032 
4430 
6031 
76^2 
2102 
5227 
lie'i 

Mil 

4311 
6032 
4430 
6032 
4430 
6031 
7410 
7602 
2102 
5223 
5203 

0221 
0223 
0222 
0224 

0000 

0007 
0377 



/PWGlli 

/CHECKS 

/Ai^D TH 

/A TLST 

/COmmAiM 

/ 

PR^ll, 



PAUL 

ASP33Ty AUTUMATIC RtAQER OPTIOM TEST. 

THAT REAULR TlAG rESPO^JDS TO \{CX A^TER "RtAUEH ON" COMHamD, 
AT FLAG DOES ^JQT RESPONH TO KCC A^TER "WEAOER OTF" COMMA^n, 

!3 OOiNJE HETk^ELN 1 AND 7 CHaRACTEPS A^TFR EACH REAUFR CONTROL 
D. TEST IS CON'TINUQUS RUNMINlG, FAILURES ARE I^DICATFO BY HALTS 



/ 

RQKON, 

rohqff, 

PCHQN, 

PCHOFTi 

SP^LAG. 

K0y07, 

K0377, 



DCa 
TAD 
J'HS 
JMS 
T A n 
JMS 
JrtS 
KCC 
JMS 
KSf-' 
HLT 
IS^ 

TAD 
DCA 
TAD 
J^S 
KCC 
JMS 
KCC 
JMS 
KSP 
SKP 
HLT 
IS;? 
JMP 
JilP 

221 

223 

222 

224 



7 

377 



SPFLAG 

P C l•^ F F 

TTOUT 

CRPPV 

RURQM 

TTOUT 

I DlYIMS 

I DLYIMS 

CLA 

CTR8 

.-5 

CTRA 

CTRB 

RDRQFF 

TTOUT 

I DLVIMS 

I DLYIMS 



CLA 
CTRB 
I *6 
PRGH + 3 



/CLEAR SPFLAG, 

/TUR.NJ OFF PUMCH FEFD 

/INITIALISE DELAY AnD ChAR COUNT 
/TURN ON RFAOER 

/WAIT AN ADDITIONAL H*^ mSECS, 

/ISSUE READER START, 

/DELAY llk3 MSECS. 

/FLAG Up? 

/NO, ERROR. FLAG SHQUlD RE UP 

/DONE FOR N CHARACTER? 

/NO, REPEAT, 

/YES. PELOAD CHAP COUNT 

/INTO CTRB, 

/TURN OFF READER 

/CLEAR READER FLAG, 

/DELAY 110 MSECS 

/ISSUE READER START 

/WAIT 110 MSECS, 

/FLAG UP? 

/NO. OK, 

/YES, HALT, FLAG SHOULD BE DOWN 

/DONE N TIMES 

/NO, REPEAT 

/YES, START OVER, 



2242 
2243 



7650 
7610 



K7b50i 765l<3 
K7610, 7610 



^A^l? Vli3 



2l-FtB-69 



ib:16 
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2244 
2245 
2246 
2247 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2260 
2251 
2262 
2263 
2264 
2255 
2266 
2267 
2270 
2271 
2272 



22^3 
2274 
2275 
2276 
2277 
2330 
2321 
232)2 
2333 
23214 
23215 
2326 
2327 
2310 



1242 
3326 
42 73 
1236 
4311 
1233 
4311 
4311 
21^2 
5253 
1241 
4311 
lliJl 
3li32 
1235 
3237 
1235 
4311 
1241 
4311 
2102 
5266 
5246 



2000 
4426 
0023 
7622 
4432 
2240 
7450 
5277 
7041 
3li3l 
11^51 
3102 
3237 
5673 



/pKGl2i 
/CHECKS 
/PChOM. 
/SHQULl) 

/WHEN P 

/TAPE, 

/EV£NTU 

/RLAUEH 

/ 

PRbl2, 



ASK33TY AUTomTIC pU^CH o'^^lo^ TEST i 
OPLKATIOM OF AUTOMATIC PI'MCh HV PU^iCHPG 4''^f^'J"'"S ^I^M 
A-mO all ^^'S CHARACTERS wITH PCHQ^, T^E TAPlE RESULTING 
HAVE ALL RUdOUTS, AS T^E TaPF ShOuLD NHT aIpVANCE 

jmchinjg with pchoff. The -eaoer is used to check THP 

REPEATED FAILURE OF THE PVmCh FFEH Tq TURM N WILL 
ALLY BL INDICATED B^ TIGmTlNIvG OF SLAC^ REjTwFEN 
AN(i PUNCH, 



TAD 
nCA 
JM5 
TAO 
Ji^S 
T A D 

JMS 
IS? 
JMP 

TAO 
JMS 
TAO 
DCA 
TAD 

DCA 
TAO 

JMS 

TAD 

JMS 

IS^. 

JMP 

JMP 



K765<3 

TTOUTA 

CRPI ^ 

PCHOFF 

TTOUT 

RORON 

TTOUT 

TTOUT 

CTRd 

.-2 

Kid3;/ 

TTOUT 
CTRA 
CTRd 
PCHON 

SPFLA^i 
PCHQN 

TTOUT 

K0377 

TTOUT 

CTRd 

, ■"3 

PRG12+2 



/GET (SNA CLA) CODE AnO 

/SET AT TTOUTA. 

/INlTlALlzfE DELAY AMD CHARJ COUNT, 

/TURN OFF PUNCH FEED 

/TURN ON READER, ; 



/PUNCH ALL i5«S CHAR, 
/DONE FOR N ? CHARS? 
/NO, REPEAT, 
/YES. PUNCH A RUNOUT 

/RELOAD CHAR COU^JT 
/INTO CTRd 
/SET SPFLAG 

/TURN ON PUNCH FEED, 

/PUNCH A RUBOUT 

/DONE f^OR N RUBOUTS? 
/NO, REPEAT, 
/YES. START OVER. 



/SUy TO InITIaLUe oEt-A^ CAUSED a'^D SeT c^(,R q^^nT 
crpTn, 



JMS I setctr 

DtLAYM 
-156 

JMS I RANQNO 
and K000/ 
SNA 

JMP ,.,3 
CIA ■ 
OCA CTRA 
TAO CTrA 
DCA CTRd 
OCA SPFLAG 
JMP I CRP|N 



/-110 TO DELAYM 

/GET RANDOM NUMBER 

/STILL NON-0? 
/NO, 

/SEt l^ CTRA 
/A^jD CTrR 

/CLEAR SPFLAG 
/EXIT 



'A.l^ 



vii3 



21-1- td-69 



ittJib Page \. 







/SUB ru 


OUT 






/IS S£l 


. Rt 






/THAT IT IS 


Sill 


'^0 00 


TTUur, 


.'1 


2312 


6046 




TLS 


2313 


6041 




TSK 


2 314 


5313 




JMP 


2315 


6042 




Tuf- 


2316 


72^0 




Ci-A 


2317 


1237 




TAO 


2320 


7650 




C:\lA 


2321 


5711 




JMP 


2322 


6032 




KCC 


2323 


6031 




KSI- 


2324 


5323 




JMP 


2325 


6034 




KRS 


2326 


7650 


TTUUTA. 


S'VA 


2327 


5711 




J(^P 


2330 


1243 




TAO 


2331 


3326 




DCA 


2332 


6034 




KRS 


2333 


1117 




TAD 


2334 


7650 




S'^A 


2335 


5711 




jMP 


2336 


6034 




KRS 


2337 


7402 




HLT 


2340 


7200 




CLA 


2341 


5711 




JMP 



PUT JATA ,0 TELEPRlNTtR/PUNCN, IF SPPLAG 
AD A CHARACTER FROM TAPE PEAQER AMD CHECK 
A RUriOUT, 

/OUTPUT CHAR, 
/DONE? 
.-l /HO, WAIT 

/YES, CLEAR FLAG, 

SPFlAG 

CLA /pUNCH qM? 

I TTOUT /NjO, E^IT, 

/YES, START READER, 

/FLAG UP? 
,-1 /NO, WAIT 

/YES, READ CHAR 
CLA /QR (SKP CLA) 

I TTOUT /CHAR IS 0, EXIT. 
K76ia /GET (SKP CLA) ANQ 
TTOUTA /SET AT TTOUTA, 

/REREAD CHAR, 
MR80UT /TAD (-377 
CIa ''^aS it . RUrOUT? 

I TTOUT /YES, OK, 

/NO, ERROR, REREAD CHAR, 

/DISPLAY CHAR, 

I TTOUT /EXIT, 
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^A^IJ? 


Vl«53 


2l-Ffc.B-69 


IbU 


-l1 


ll-*! 


iM^ 


/!id/4 


al2 


1144 


MGTR 


^tdti 


ALIG^J 


1120 


MI LI 


<i065 


ATEM3 


1147 


M I L C T R 


^5064 


:i3^ 


0075 


MjJVt. 


/'600 


Z2A6 


0076 


M V L A 


^613 


- H A I V 


0024 


MWi<OliT 


^117 


CHA I \jN 


0257 


MSCTR 


^063 


:h:k 


0531 


NXTST 


^061 


:h£c< 


0111 


P fcT. E 


1221 


:H9C\iT 


3502 


Pitif 1 


1244 


CPU) 


0056 


P0E2A 


1267 


:rcnt 


0112 


P0F2B 


12/1 


CR'^S< 


0517 


P0F3A 


1320 


:k3im 


2273 


P^E3B 


1322 


:t^a 


0101 


P0F.4A 


1345 


:T^d 


0102 


P0F4B 


1362 


CTSK 


0566 


Pi3E5 


1417 


CU^TST 


3057 


P E 6 A 


1456 


JE^AYM 


0023 


P0E 6R 


1462 


JLCNT 


0520 


P0TS0 


1205 


JLYl'^S 


0030 


P0TS1 


1225 


3LY1SC 


0027 


P»dTSlA 


1232 


3LYCMT 


0113 


P0TS1B 


1235 


3LYM3 


0345 


P0TS2 


1246 


JLYM5K 


0530 


P0TS2A 


1256 


JLYSC 


0333 


P^TS3 


1275 


LR^CVT 


1101 


P0TS3A 


1305 


tR^^CTR 


1117 


P0TS4 


1327 


?"A3a=? 


3623 


P0TS4A 


1334 


fLAG 


3072 


P0TS4B 


1360 


^O^WD 


0276 


P0TS4C 


1371 


StTPT 


0110 


P^TS5 


1400 


GtTPTT 


3453 


P0TS5A 


1410 


3tTRDY 


0233 


P0TS6 


1424 


31VE 


1150 


P0TS6A 


1431 


HUTTST 


1111 


P0TS6B 


1441 


lU 


3215 


P1E0A 


1627 


IN3RTN 


3255 


P1F0B 


1631 


IND 


1146 


PlEl 


1651 


I\IT=T 


2444 


P1E2 


1676 


IN3ATT 


0107 


P1E3A 


1717 


■<0a07 


2240 


P1E3B 


1734 


<0377 


2241 


P1E4 


1765 


'^l;^^ 


0104 


P1TS0 


1605 


<23y? 


3105 


P1TS0A 


1615 


<761?' 


2243 


P1TS0B 


1622 


^765? 


2242 


PlTSl 


1635 


<77 


0073 


PITSIA 


1643 


<P9 


3066 


P1TS2 


1656 


^P3b 


0067 


P1TS2A 


1663 


-^STA^JT 


0020 


P1TS3 


1701 



PACE 



P 1 T b 3 A 


1 7 :'" 6 


piTS.-^e 


17 32 


P 1 T S 3 C 


174 3 


P1TS4 


1746 


P1TS4A 


1756 


P2E0 


2030 


P2ri 


2062 


P2r2 


2120 


P2T0R 


2025 


P2T1R 


2057 


P2T2C 


2115 


P2TS0 


?005 


P2TS0A 


2015 


P2TS1 


2035 


P2TS1A 


2045 


P2TS2 


2067 


P2TS2A 


2077 


P2TS2B 


2102 


PCMOFF 


2236 


PCHQN 


2235 


PFLAG 


0114 


PRG0 


1200 


PRGl 


1600 


PRG10 


1060 


PRGll 


2200 


PRG12 


2244 


PRG2 


2000 


PRG3 


1000 


PRG4 


1006 


PRG5 


1013 


PRG6 


1031 


PRG7 


1042 


PRGADR 


0231 


PRGEND 


0274 


PRGLIM 


0034 


PRGMSK 


0033 


PRGNUM 


0035 


PRGTAB 


0037 


PSW 


0036 


PT0 


0450 


PTl 


0451 


PTEMP 


0021 


PTEMPl 


0022 


PTMSK 


0452 


PUNCH 


0465 


RANJCON 


0430 


RAMDEX 


0427 


RANONO 


0032 


RAMGEN 


^'•40 


R A N S A V 


M4 4 3 


RANiTAD 


W 4 1 5 


RANTRL 


0431 



RANTV'U 


iM 4 2 


RUROFF 


2234 


R U P M 


2233 


READCK 


1071 


RTNiNO 


!^0fti^ 


SBPi 


?0?3 


SBl 


?055 


SB2 


2111 


SmSP 


1076 


SCCTP 


0062 


SCMT 


0103 


SETCTR 


00P6 


SHALT 


0313 


SHLT 


0025 


SKIPMA 


0077 


SKIPPA 


0100 


«^PFLAG 


2237 


SR5MRK 


0055 


SRSET 


0232 


SRKT 


0031 


SRT0A 


1017 


SRT0P 


1022 


SRTIA 


1035 


SRT2A 


1046 


SRT2R 


1051 


SRT3A 


1064 


START 


0200 


STCTR 


0322 


SYNC 


0106 


SYNK 


0546 


SYNKA 


0552 


TAODR 


0624 


TEMP 


0052 


TEMPI 


0053 


TEMQ 


0070 


TEMR 


0071 


TSTMSK 


0054 


TTOUT 


2311 


TTnUTA 


2326 


UMnVE 


0116 


UPUNJCH 


0115 


WCWK 


0545 


WTS6A 


1466 


WTS6R 


1467 
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LRHORS JLTLCTEu; d 
KUN-TIM-.: 26 SECONDS 
3K CO^t USED 



